Supprimer les colonnes ? sous conditions

Bonsoir, je voudrais à l'aide d'une macro supprimer les colonnes "STOP,LOUPE, RATP, PTT,"

merci pour votre aide

Bonjour

Essayes

Option Explicit

Sub SupColonne()
Dim NomCol
Dim Cel As Range
Dim I As Integer

  NomCol = Array("STOP", "LOUPE", "RATP", "PTT")
  For I = 0 To UBound(NomCol)
    Set Cel = Rows(1).Find(what:=NomCol(I), LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Columns(Cel.Column).Delete
    Else
      MsgBox "Colonne " & NomCol(I) & " introuvable"
    End If
  Next I
End Sub

Excellentissime ! merci bien. 8)