Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Dim tablo, i
Application.ScreenUpdating = False
DL = Sheets("Feuil2").Range("A65500").End(xlUp).Row
tablo = Sheets("Feuil2").Range("A1:A" & DL)
For i = 1 To UBound(tablo)
If tablo(i, 1) Like "*" & Target & "*" Then
MsgBox "Le mot " & Target & " a été trouvé en ligne " & i & Chr(10) & Chr(10) & _
"Dans la phrase " & tablo(i, 1)
Exit Sub
End If
Next i
MsgBox "Désolé. Le mot " & Target & " n'a pas été trouvé. "
End If
Fin:
End Sub