XL 2016 Simplification

[xszma]

Bonjour,

Pouvez-vous me donner une simplification de ce bout que je retrouve plusieurs fois après avoir généré un code avec l'enregistreur de macros.

Columns("AG:AG").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Merci !

 

[Dranreb]

Bonjour.
Peut être :

With Intersect(Columns(33), ActiveSheet.UsedRange): .Value = .Value: End With