Suppression colonnes en gardant les entête

Bonjour,

je reçois régulièrement des fichiers excel dont je voudrai effacer les contenue de plusieurs colonnes sans en effacer la première ligne des entête

exemple :

je veux effacer le contenue de toutes ces plages "B:C", "E:G", "L", "N:O", "Q:U", "W:AR", "AV:BA", "BD", "BH", "BJ:BL", "BN:BQ", "BS", "BV:CG", "CJ:FB", "FD:FE"

a partir de la ligne 2

Merci d'avance pour votre aide.

Bonjour,

Essaye ce code :

Sub Effacer()
    Dim plage As Range
    derLig = ActiveSheet.UsedRange.Rows.Count
    Set plage = Intersect(Range("2:" & derLig).EntireRow, [B:C, E:G, L:L,N:O,Q:U,W:AR,AV:BA,BD:BD,BH:BH,BJ:BL,BN:BQ,BS:BS,BV:CG,CJ:FB,FD:FE])
    plage.ClearContents
    Set plage = Nothing
End Sub

Yes!!! génial ça fonctionne super bien merci beaucoup!!!

Re,

J'ai remis un nouveau code optimisé. Essaye-le aussi.

ça marche tout aussi bien ! merci

Rechercher des sujets similaires à "suppression colonnes gardant entete"