Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2")) Is Nothing Then
Set c = ActiveSheet.Range("B:B").Find(Target)
If Not c Is Nothing Then
c.Select
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then
Application.Goto Range("a" & Application.Match(Target, [b:b], 0))
'pour mettre ce code postal en ligne 1
'Application.Goto Range("a" & Application.Match(Target, [b:b], 0)), True
End If
End Sub