Salut ferran,
Salut Oyobrans,
plutôt avec Worksheet_Change, non?
Jamais chipoté avec des douchettes non plus, à part dans ma salle de bain...
Tu es sûr de [B2], hein? parce que je vois [B1] coloré!!
Private Sub Worksheet_Change(ByVal Target As Range)
'
On Error Resume Next
If Not Intersect(Target, [B2]) Is Nothing Then
iRow = Range("A:A").Find(what:=Range("B2").Value, lookat:=xlWhole).Row
If iRow <> "" Then
Range("A" & iRow).Offset(0, 1).Select
Else
MsgBox "Pas de correspondance!", vbInformation + vbOKOnly, "Info"
End If
End If
On Error GoTo 0
'
End Sub
A+