Sub Compare()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long
Derlig1 = Sheets("Dispo").Range("B65535").End(xlUp).Row
Derlig2 = Sheets("Liste").Range("A65535").End(xlUp).Row
With Sheets("Liste")
For Lig1 = 3 To Derlig1
Cp = Sheets("Dispo").Cells(Lig1, "B")
For Lig2 = 4 To Derlig2
' If Cp = .Cells(Lig2, "A") Then .Cells(Lig2, "A").Interior.ColorIndex = 6
If .Cells(Lig2, "A") = Cp Then .Cells(Lig2, "A").Interior.ColorIndex = 6
Next Lig2
Next Lig1
End With
End Sub