Mise en forme Colonne

Bonjour

lorsque je lance le code suivant en automatique, seule la colonne N se colore.

Si je mets un point d'arret sur la première ligne (Fichier_Final.Sheets("PA").Columns("N:N").Interior.Pattern = xlSolid),

puis que j'appuie sur F5 pour lancer la suite, toutes les colonnes (N, O, R U et X) se mettent en forme.

Une idée?

    Fichier_Final.Sheets("PA").Columns("N:N").Interior.Pattern = xlSolid
    Fichier_Final.Sheets("PA").Columns("N:N").Interior.PatternColorIndex = xlAutomatic
    Fichier_Final.Sheets("PA").Columns("N:N").Interior.ThemeColor = xlThemeColorAccent2
    Fichier_Final.Sheets("PA").Columns("N:N").Interior.TintAndShade = -0.249977111117893
    Fichier_Final.Sheets("PA").Columns("N:N").Interior.PatternTintAndShade = 0

    Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.Pattern = xlSolid
    Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.PatternColorIndex = xlAutomatic
    Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.ThemeColor = xlThemeColorAccent4
    Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.TintAndShade = 0.399975585192419
    Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.PatternTintAndShade = 0

Bonjour

Si les colonnes ne sont pas contigues, il faut utiliser UNION

Un exemple:

Application.Union(Range("A:A"), Range("C:C").....

Merci. Je vais tester

Mais pourquoi cela fonctionne si je mets un point d'arret et que je relance derrière?