Description liste de choix

Bonjour,

Un petit code VBA pour récupérer les champs descriptifs d'une liste déroulante.

Sub Description()

Dim Task1 As Task
Dim i As Integer

'Balayage de toutes les tâches du projet
For Each Task1 In ActiveProject.Tasks
    i = 1
    If Not Task1 Is Nothing Then
'Test la présence de valeur sinon écrase par vide
        If Task1.Text1 <> "" Then
            Do
'Test de la valeur du champ
                If Task1.Text1 = Application.CustomFieldValueListGetItem(pjCustomTaskText1, pjValueListValue, i) Then
'Ecrase la description
                    Task1.Text2 = Application.CustomFieldValueListGetItem(pjCustomTaskText1, pjValueListDescription, i)
                    Exit Do
                Else
                    i = i + 1
                End If
            Loop
        Else
            Task1.Text2 = ""
        End If
    End If
Next Task1

End Sub 

@+ Vincent