Macro couper coller - Comment éviter de voir la manip ?

Bonjour tout le monde.

J'ai fait une macro :

Sheets("BASE").Select

Columns("A:A").Cut

Sheets("iGlex").Select

Columns("A:A").Select

ActiveSheet.Paste

Elle sert a couper coller une colonne dans une autre colonne sur une seconde feuille.

Savez vous s'il est possible de rédiger autrement le code pour ne pas voir les feuilles changer et voir les colonnes se sélectionner, se couper et se coller. J'ai beaucoup de colonnes à découper et quand j'exécute la macro je me retrouve avec un écran qui flash de partout Peut être cela permettrait également de réduire le code

Merci d'avance en tout cas

Cordialement

bonjour,

Application.ScreenUpdating = False

Sheets("BASE").Columns("A:A").Cut Sheets("iGlex").Range("A1")

Salut Christucci,

Application.ScreenUpdating = False suspend l'actualisation de l'affichage!

'
Application.ScreenUpdating = False
'
Sheets("Feuil1").Columns("A:A").Copy Destination:=Sheets("Feuil2").Columns("A:A")
'
Application.ScreenUpdating = True
'

Evite les Select quand ce n'est pas utile!

A+

Super c'est top comme ca ! Merci beaucoup à vous deux