Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Message
Dim pays As String
Dim c As Range
Dim monpays As String
If Not Application.Intersect(Target, Range("$EZ$5")) Is Nothing Then
pays = Target.Value
End If
If Target.Address = "$EZ$5" Then Range(Range("$FA$1").Value).Select
'Else
' MsgBox "valeur " & pays & " non trouvée"
'End If
If pays = "" Then Exit Sub
With Worksheets("CM 1930").Range("FB159:FB1500")
Set c = .Find(pays, LookIn:=xlValues)
If Not c Is Nothing Then
monpays = c.Address
ActiveWindow.ScrollRow = c.Row
Range(monpays).Activate 'facultatif
End If
End With
Message:
MsgBox "valeur " & pays & " non trouvée"
End Sub