Microsoft 365 Séléction successives en fonction des valeurs aux bornes dans un même plage de données

[Mimi3131]

Bonjour,
J'ai besoin de modifier la couleur de cellules comprises entre des séquences variables de plages.
Les bornes à rechercher dans une même colonne sont les mêmes, pour l'exemple : CC au début et HH à la fin, mais elles ne sont pas toujours situées sur les mêmes numéros de lignes.
En revanche la plage A1-A21 ne varie jamais.
Je parviens à identifier et mettre en forme la première séquence (ci-dessous A1-A4) mais je j'arrive pas à enchainer sur les autres séquences.
Je joins mon brouillon de code (fichier "test" pour faciliter.
Mille mercis car j'y ai passé plusieurs heures avant de me décider à venir vers vous !

 

[Phil69970]

Bonjour @Mimi3131

Je te propose ceci :

Sub PlageCouleur()
Application.ScreenUpdating = False
Dim Derlig&, i&, x$

Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
x = 34          'Couleur de départ (modifiable)
For i = 2 To Derlig
    With Worksheets("Feuil1").Range("A" & i)
        If .Value <> "CC" Then .Interior.ColorIndex = x
        If .Value = "HH" Then x = x + 2 Else .Interior.ColorIndex = x
    End With
Next i
End Sub

*Merci de ton retour

@Phil69970

 

[Mimi3131]

Bonsoir Phil69970
Ta proposition marche impeccablement. Elle est élégante et va au but.
C'est tout simplement impressionnant (d'autant plus en comparaison de ma machine à gaz initiale !
Merci !