XL 2016 Suppression colonne

Claude5 à dit:

Bonjour,
dans le fichier joint y a t-il un moyen "technique" de supprimer une colonne sur 2 à partir de la colonne BPE?

Merci/Claude

Cliquez pour agrandir...

Sub SupColonne()
    Dim i&
    With Feuil1
       For i = .[ima1].Column To .[bpe1].Column Step -2
            .Columns(i).Delete
        Next
    End With
    MsgBox "Terminé"
End Sub