Sub ChangeCouleur()
Dim Plage As Range
Dim Couleur1 As Byte, Couleur2 As Byte
Set Plage = Application.InputBox(prompt:='Sélectionner la zone à modifier', Type:=8)
Couleur1 = InputBox('Donnez l'index de la couleur à remplacer')
Couleur2 = InputBox('Donnez l'index de la couleur de remplacement')
For Each c In Plage
With c.Interior
.ColorIndex = IIf(.ColorIndex = Couleur1, Couleur2, .ColorIndex)
End With
Next c
End Sub