Dim X As Range, Plage As Range, C As Range
Dim Adresse As String
Sheets('BDD').Select
Range('C2').Select
' Saisie des données de la feuille
Sheets('BDD').Range('C2').FormulaR1C1 = InputBox(Message1, TITRE1, ValDéf1)
On Error Resume Next
Set X = Sheets('BDD').Cells(2, 3)
If X = '' Then Exit Sub 'si la cellule C2 est vide (fin de la macro)
Sheets('BDD').Range('A8:C1500').Interior.ColorIndex = xlNone
Set Plage = Sheets('BDD').Range('A8:C1500')
With Plage
Set C = .Find(What:=X, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If Not C Is Nothing Then
Adresse = C.Address
Do
C.Select
Rows(C.Row).Interior.ColorIndex = 35
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With