Option Explicit
Sub Recherche()
Dim client As String, c As Range
client = InputBox("Veuillez encoder le client recherché", "Recherche Client", "Nom de famille client")
Set c = Feuil1.Columns(8).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(client)
If Not c Is Nothing Then
c.EntireRow.Interior.Color = RGB(64, 128, 96)
Else
MsgBox "Le nom que vous avez encodé n'est relié à aucun client de la banque."
End If
End Sub