Private Sub Worksheet_Change(ByVal Target As Range)
Dim pays As String
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
pays = Target.Value
End If
With Worksheets("pays").Range("F11:F150") ' changer nom de la feuille
Set c = .Find(pays, LookIn:=xlValues)
monpays = c.Address
Range(monpays).Activate
End With
End Sub