Suppression colonnes

Bonsoir,

j'ai un fichier comportant plusieurs colonnes.

Supprimer une ou plusieurs colonnes (colonne A ou B) pas de problème

mais je souhaiterai supprimer certaines de ces colonnes à partir de leur libellé qui se situe sur la ligne 1.

Mais l'ordre des libellés n'est pas forcemment le même à chaque fois.

Je peux avoir par exemple le n° sur la première colonne etc, etc..

Comment faire pour supprimer les colonnes désirées automatiquement, sachant que se seront toujours les mêmes

libellés de colonnes qui doivent disparaitre.

voir fichier joint pour l'exemple à traiter.

Merci

Bonsoir à tous,

Valable si le libellé est en ligne 1 et = N°

Sub SupprColonne()
Dim cL%, i%
    cL = Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
        If Cells(1, i) = "N°" Then Columns(i).Delete
    Next i
End Sub

Amicalement

Claude

Merci pour l'aide.

J'ai intégré dans la boucle les autres colonnes que je souhaite supprimer.

Ca fonctionne parfaitement.

Sub SupprColonne()

Dim cL%, i%

cL = Cells(1, 256).End(xlToLeft).Column

For i = cL To 1 Step -1

If Cells(1, i) = "Niveau" Then Columns(i).Delete

If Cells(1, i) = "Couleur" Then Columns(i).Delete

If Cells(1, i) = "Ligne" Then Columns(i).Delete

etc, etc....

Next i

End Sub

Cordialement

re,

tu pouvais écrire aussi comme çà

Sub SupprColonne()
Dim cL%, i%
    cL = Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
        If Cells(1, i) = "Niveau" Or _
           Cells(1, i) = "Couleur" Or _
           Cells(1, i) = "Ligne" Then Columns(i).Delete
    Next i
End Sub

Claude