Bonjour, aude21
Code a placer au-dessus de ta macro
[code=vb]Sub Vider_Colonne()
Columns("C:D").Select ' Sélectionne les deux colonnes
Selection.ClearContents 'Efface le contenu
ActiveCell.Range("A1").Select
'End Sub
' Supprimer ce End Sub pour continuer la macro[/code]
Amicalement
Pierrot