Private Sub CommandButton1_Click()
Dim Plage As Range
Set Plage = Range("A1:BZ650")
Dim MotRechercher As String
MotRechercher = InputBox("Entrer la donnée à repérer", "Us")
If MotRechercher = vbNullString Then Exit Sub
Dim Cellule As Range
For Each Cellule In Plage
If InStr(1, Cellule.Value, MotRechercher) > 0 Then
Range(Cellule.Address).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next Cellule
End Sub