Bonjour,

je cherche à faire une boucle qui va chercher une données par un code vba vlookup après un filtre automatique selon la valeur d'une cellule d'une colonne, cependant mon code vba n'arrête pas de sortir en error 1004, or en controlant manuellement ma formule doit me ressortir une valeur

pouvez-vous m'aider ci-dessous mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Macro2()
 
Worksheets("flatfile").Select
 
    i = 3
 
    While Cells(i, 1) <> ""
    Sheets("flatfile").Select
    ActiveSheet.Range(Range("$A$2:$AD$2"), Selection.End(xlDown)).AutoFilter Field:=1, Criteria1:=Sheets("Mov flatfile").Cells(i, 1)
 
    Worksheets("Mov flatfile").Select
    If Cells(i, 16).EntireRow.Hidden = True Then
    i = i + 1
    Else
    Cells(i, 38) = WorksheetFunction.VLookup(Cells(i, 16), Worksheets("flatfile").Range("M:AD").SpecialCells(xlCellTypeVisible), 18, False)
    End If
      i = i + 1
    Wend
End Sub
Merci de votre aide ,