Suppression de plusieurs colonnes variables

Bonjour le forum.
Je voudrais à partir d'un userform supprimer les colonnes inutiles selon la sélectionnée dans le ComboBox3
Seulement lorsque j'applique la boucle suivante, seule la colonne 7 est supprimée. J'ai besoin de votre aide pour pouvoir avancer dans mon travail. Merci d'avance pour votre orientation.
Ma macro est la suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub ComboBox4_Change() Worksheets("Feuil4").Activate   Dim kk As Integer kk = 7 Application.CutCopyMode = False On Error Resume Next Worksheets("Feuil4").Select Range("A20").Value = CDbl(Me.ComboBox3.Value) Do While Worksheets(4).Cells(1, kk).Text <> "" If Cells(2, kk).End(xlUp).Row = "" Then Columns.Delete Cells(22, kk).Value = CDbl(Right(Cells(1, kk).Value, 1)) If Worksheets(4).Cells(22, kk).Value - Worksheets(4).Cells(20, 1).Value <> 0 Then Worksheets(4).Cells(1, kk).column.End(XlToLeft).EntireColumn.Delete   End If       kk = kk + 1 Loop     End Sub

---

Bonjour,

Tu as trop d'incohérences dans le code par rapport à ta description du besoin :

Pourquoi faire car tu connais le numéro de ta colonne ?

Code:

---

Do While Worksheets(4).Cells(1, kk).Text <> ""

---

A quoi te sert cette condition ?

Code:

---

If Worksheets(4).Cells(22, kk).Value - Worksheets(4).Cells(20, 1).Value <> 0 Then

---

Le ".column" ne sert par à grand chose et je ne comprends pas le ".end(xltoleft)"

Code:

---

Worksheets(4).Cells(1, kk).column.End(XlToLeft).EntireColumn.Delete

---

En fait, ci-dessous, ferait largement le travail.

Code:

---

Worksheets(4).Cells(1, kk).EntireColumn.Delete

---

Bref, ce n'est pas très clair ce que tu fais.

Cordialement,