Dim R As Range, C As Range
Private Sub Neutre_Click()
For Each C In [A1:H15].SpecialCells(2)
C.Interior.ColorIndex = xlNone
Next
End Sub
Private Sub Coul_Click()
For Each C In [A1:H15].SpecialCells(2)
For Each R In Feuil1.[A1:A7]
If R = C Then C.Interior.Color = R.Interior.Color
Next
Next
End Sub