Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E5]) Is Nothing Then [E5].Select
If Intersect(Target, [E5]) Is Nothing Then [H5].Select
If [H5] <> "" Then
ActiveSheet.Shapes("pointeur").Visible = True
lig = Sheets(1).Range("A65536").End(xlUp).Row
With Sheets(1).Range("a2:a" & lig)
Set cel = .Find([E5], LookIn:=xlValues, LookAt:=xlWhole)
If cel Is Nothing Then
[D9].Value = "Désolé, aucun résultat trouvé."
ActiveSheet.Shapes("attention").Visible = True
Exit Sub
End If
End With
End If
End Sub