Sub LaMacroquicherche()
Dim Plage As Range, LigFin As Long, ColFin As Integer, Trouve, Recherche As String
Recherche = "Clos"
With Sheets(2)
Set Plage = .Range("a1").CurrentRegion
ColFin = Plage.SpecialCells(xlCellTypeLastCell).Column
LigFin = Plage.SpecialCells(xlCellTypeLastCell).Row
Set Trouve = Plage.Find(Recherche, LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
Col = Trouve.Column
For i = 1 To LigFin
If .Cells(i, Col).Value = Recherche Then
Range(.Cells(i, 1), .Cells(i, ColFin)).Interior.ColorIndex = 37
End If
Next i
Else
MsgBox "Aucune donnée " & Recherche & " n'a été trouvée "
Exit Sub
End If
End With
End Sub