Copier-coller et Workbook_SheetChange

Salut, j'ai fait ce code pour que quand on change une valeur dans une cellule choisie (ici Range("X", "Y", etc...)) une couleur s'applique en fonction du contenu (code dans la méthode couleur_programme(Target)). Tout marche bien mais le problème c 'est que si je copie-colle plusieurs cellules, la couleur ne s'applique pas, or je voudrai que ça le fasse. Ça ne marche que si je copie-colle une seule cellule. Je vous met le code ici :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name Like "*janvier*" Or Sh.Name Like "*fevrier*" Or Sh.Name Like "*mars*" Or Sh.Name Like "*avril*" Or Sh.Name Like "*mai*" Or Sh.Name Like "*juin*" Or Sh.Name Like "*juillet*" Or Sh.Name Like "*août*" Or Sh.Name Like "*septembre*" Or Sh.Name Like "*octobre*" Or Sh.Name Like "*novembre*" Or Sh.Name Like "*décembre*" Then
        If Not Sh.Name Like "*Sam*" Then
            If Target.Count = 1 Then
                Application.EnableEvents = False

                If Not Application.Intersect(Target, Range("I7:I10, I12:I21, I23:I32, I34:I47, I54:I57, I59:I68, I70:I79, I81:I95, I101:I104, I106:I115, I117:I126, I128:I141")) Is Nothing Then
                    Call couleur_programme(Target)
                ElseIf Not Application.Intersect(Target, Range("V7:V10, V12:V21, V23:V32, V34:V47, V54:V57, V59:V68, V70:V79, V81:V95, V101:V104, V106:V115, V117:V126, V128:V141")) Is Nothing Then
                    Call couleur_programme(Target)
                End If

                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Merci d'avance pour votre aide !

Bonjour

A mon avis, sans être un spécialiste, ta ligne

If Target.Count = 1 Then

ne prévoit qu'une seule cellule

Cordialement

Oui c'est fait exprès car sinon on peut sélectionner plusieurs cellules et ça fout le programme en l'air car les conditions ne sont plus respectées, je veux surmonter ce problème moi :/

C'est bon j'ai résolu le problème J'ai récupéré le Target comprenant une range sur plusieurs cellules et j'ai parcouru chaque cellule.