résultat : afficher la cellule (...)
Sub chercheA1()
With [a1:a500]
Set c = .Find([A1].Value, LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(0, 1).Select
End If
End With
End Sub
Sub a()
On Error Resume Next
MsgBox "Résultat : " & Application.VLookup([A1], [A6:B100], 2, 0)
If Err Then MsgBox "Pas de résultat..."
End Sub