Envoyez moi votre fichier (qui bug) pour voir à moins que ce soit confidentiel...
Si c'est le cas alors s'il n'y a pas d'autre code, faites un copier coller "du mien" vers votre fichier.
Ceci dit je ne comprend pas votre ligne de code ci-dessous :
Range("Couleur, Couleur2").Cells.Interior.ColorIndex = 40 ma couleur de fond.
à aucun moment vous y faites référence à la variable i du For i=1 to 4
Dans mon code :
For i = 1 To 4
Range("tab_" & i).Cells.Interior.Color = -1
Next i
il y a une boucle pour scanner les 4 variable tableau qui ont pour nom tab_1, tab_2, tab_3 et tab_4
d'où le for i=1 to 4 ou i prend la valeur 1 à 4 pour donner au final le nom des 4 tableaux où l'on veut effacer toutes les couleurs.
Voici comment nommé une zone (un tableau dans votre cas) :
@ bientôt
LouReeD