Suprimer colonne

Bonjour,

j'ai un petit souci avec ce code qui, est censé suprimé la colonne dans l'onglet parametrage portant le nom de la valeur de ma Combobox (qui ne fonctionne pas, et qui supprime l'onglet à ce nom (qui fonctionne)

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Dim cL%, i% 'Supression colonne
    cL = Worksheets("parametrage").Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
        If Cells(1, i) = A Then Columns(i).Delete
    Next i
Worksheets(A).Delete
End Sub

Bonjour,

sans le fichier qui va avec, difficile de tester et de te conseiller.

Bonjour,

Voici mon fichier