Fonction VLookup en VBA [Resolu]

Bonjour,

J'ai le message d'erreur "424" lorsque j'execute le code suivant:

Sub WordArt1_QuandClic()
'Permet de faire l'extraction de la colonne Materiel Number du fichier ZFGD dans le fichier consolidation'


Dim Ligne As Long
Ligne = 1

While Worksheets("ZFGDZSFG").Cells(Ligne, 2).Value <> ""
Worksheets("Consolidation").Cells((Ligne + 10), 1) = Worksheets("ZFGDZSFG").Cells(Ligne, 2)
Ligne = Ligne + 1
Wend

Ligne = 11

While Worksheets("Consolidation").Cells(Ligne, 1).Value <> ""
Worksheets("Consolidation").Cells(Ligne, 2) = WorksheetFunction.VLookup(Cells(Ligne, 1), ZFGDZSFG.Range("B:C"), 2, False)
Ligne = Ligne + 1
Wend


End Sub

Avez-vous une idée ?