Function TrouverMot(Mot, Plage)
Dim CellTrouvées As Range
Dim Cellule As Range
For Each Cellule In Plage
If InStr(UCase(Cellule.Value), UCase(Mot)) > 0 Then
If CellTrouvées Is Nothing Then
Set CellTrouvées = Cellule
Else
Set CellTrouvées = Union(CellTrouvées, Cellule)
End If
End If
Next
Set TrouverMot = CellTrouvées
End Function