Changer couleur

    Sub Colore()
        Dim Wsh As Worksheet, PremLig As Integer, DrLig As Integer, Col As Integer, DrCol As Integer
        Dim Couleur As Integer, Couleur_1 As Integer, Couleur_2 As Integer
        
        Set Wsh = Worksheets("Feuil1")  'A ADAPTER : Nom de la feuille
        Col = 1                         'A ADAPTER : Numéro de la colonne à traiter  (ici A)
        DrCol = 10                      'A ADAPTER : Numéro de la dernière colonne à colorer
        PremLig = 1                     'A ADAPTER : Numéro de la première ligne traitée (ici 1)
        Couleur_1 = 3                   'A ADAPTER : Couleur n° 1
        Couleur_2 = 27                  'A ADAPTER : Couleur n° 2
        
        Couleur = Couleur_1
        With Wsh
            DrLig = .Columns(Col).Find("*", , , , , xlPrevious).Row
            For Lig = PremLig To DrLig
                .Range(.Cells(Lig, Col), .Cells(Lig, DrCol)).Interior.ColorIndex = Couleur
                If .Cells(Lig, Col).Value <> .Cells(Lig + 1, Col).Value Then
                    Couleur = IIf(Couleur = Couleur_1, Couleur_2, Couleur_1)
                End If
            Next Lig
        End With
    End Sub