Comment dois-je comprendre cette phrase ???Et si je souhaite mettre la cellule à droite de celle qui est différente de la même couleur ?
Sub Bouton1_Clic()
Dim cellule As Range
For Each cellule In Range("A1:H19")
If cellule.Interior.Color <> 0 Then
cellule.Offset(0, 1).Interior.Color = cellule.Interior.Color
Exit Sub
End If
Next cellule
End Sub