VLookup et cells VBA

Bonjour à tous,

Ma fonction ci-dessous ne fonctionne pas. Pouvez-vous m'aider stp ?

Avec une fonction simple si possible (vu que je suis débutante). Merci d'avance.

Option Explicit

Sub RecherveV()

Dim ligne As Integer
Dim colonne As Integer
Dim resultat As Variant

With Sheets(1)

For ligne = 3 To 9

resultat = Application.WorksheetFunction.VLookup(.Cells(ligne, 1), Range("A3:E9"), 5, False)

If IsError(resultat) = False Then
.Cells(ligne, 7) = "N/A"
End If

Next ligne

End With

End Sub

Merci Bart, cependant mon code me renvoie toutes les valeurs de Range("A3:E9") ce qui ne correspond pas à une bonne RechercheV.

Il y a donc toujours un problème.