Surligner plusieurs lignes en fonction d'une colonne

Bonjour,

je recherche une façon comme la fonction de surligner 1 ligne sur 2 mais qui s'applique à plusieurs lignes en fonction d'une colonne.

Par exemple j'ai plusieurs lignes qui se suivent et une des colonnes est égal à France donc surligner toutes ces lignes en bleu clair, ensuite juste ensuite j'ai plusieurs autres lignes avec une des colonnes égal à Allemagne donc ne pas surligner ces lignes ensuite d'autre lignes avec une des colonnes égal à Suisse toutes surlignées en bleu clair etc... etc...

j'upload une image pour montrer l'exemple

merci

Bonjour et

C'est impossible de travailler et te donner une réponse validée avec une image

Je vais rechercher un fichier approchant

Sub colorer()
Dim depuis As Range, jusque As Range

    blanchir
    nbcol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set depuis = Cells(2, 1): Set jusque = Cells(2, nbcol)
    ancien = Cells(2, 1): n = 1: couleur = 33
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row + 1
        nouveau = Cells(i, 1)
        Set jusque = Cells(i, nbcol)
        If nouveau = ancien Then
            n = n + 1
        Else
            Range(depuis, jusque.Offset(-1, 0)).Interior.ColorIndex = couleur
            couleur = IIf(couleur = 40, 33, couleur + 1) ' de index 33 à 40
            Set depuis = Cells(i, 1)
            n = 1
        End If
        ancien = nouveau
    Next

End Sub
Sub blanchir()
    With Cells.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub