Rester Sélectionnée ? je ne veux pas

Bonsoir avec cette macro, la colonne A reste sélectionnée une fois le fichier fini, est-ce possible qu'elle ne le soit pas ? merci

   Range("A2:A2000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False

Bonsoir DJ FA,

Tu peux par exemple rajouter cette ligne à la fin de ta macro :

Range("A1").select

Deraks a écrit :

Bonsoir DJ FA,

Tu peux par exemple rajouter cette ligne à la fin de ta macro :

Range("A1").select

Oui j'y avais pensé, mais au cas ou si il y a mieux.

Bonsoir,

Tu peux aussi éviter toutes les sélections

    With Range(Range("A2"), Range("A2").End(xlDown))
        .FormatConditions.AddUniqueValues
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).DupeUnique = xlDuplicate
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399945066682943
        End With
        .FormatConditions(1).StopIfTrue = False
    End With

A+

Excellent, merci bien.