Erreur 1004 suite à Vlookup

Bonjour à tous,

Après avoir trouvé (reçu) la réponse à mon problème de Vlookup, je me retrouve maintenant avec une erreur 1004 qui apparait parce que certaine valeurs cherchées, ne trouve pas de correspondance.

Voici mon code:

Option Explicit

Dim i&, fd As Worksheet, fs As Worksheet

Sub NombreDeVisites()
'On Error GoTo ErrorHandler:
'page de destination
    Set fd = Sheets("fd")
'page source
    Set fs = Sheets("fs")
    For i = 2 To fd.Range("B" & Rows.Count).End(xlUp).Row
fd.Range("G" & i) = WorksheetFunction.Vlookup(fd.Range("B" & i), fs.Range("A2:F" & fs.Range("E" & Rows.Count).End(xlUp).Row), 6)
    Next i
End Sub

Si j'ajoute un , False après le 6, l'erreur 1004 apparait.

J'aimerais pouvoir inscrire Non trouvé pour chacune des lignes en "erreur" et que mon traitement continue sur les autres lignes.

Merci de votre aide

Bonsoir,

Essaie ainsi :

Option Explicit

Dim i&, fd As Worksheet, fs As Worksheet
dim r as variant

Sub NombreDeVisites()
'On Error GoTo ErrorHandler:
'page de destination
   Set fd = Sheets("fd")
'page source
   Set fs = Sheets("fs")
    For i = 2 To fd.Range("B" & Rows.Count).End(xlUp).Row
r= Application.Vlookup(fd.Range("B" & i), fs.Range("A2:F" & fs.Range("E" & Rows.Count).End(xlUp).Row), 6,False)
fd.Range("G" & i).Value =IIf(IsError(r),"Non trouvé",r)
    Next i
End Sub

]Merci Jean Eric, nette amélioration par contre, il m'affiche Non trouvé à chaque ligne alors q'il devrait trouver au moins un résultat pour une ligne, voir exemple [attachment=0]Vlookup v1.xlsm[/attachment

Merci encore

bonsoir,

sur base de ton fichier l'instruction vlookup devrait être la suivante

r= Application.Vlookup(fd.Range("B" & i), fs.Range("E2:F" & fs.Range("E" & Rows.Count).End(xlUp).Row), 2,False)

Mon erreur, merci h2so4 et désolé Jean Eric

Merci à vous