Selection de données combobox

Bonjour,

Alors j'ai un tableau de ce type que je veux utiliser dans une combobox.

JAN -W01 - W02 -W03 - W04 - W05 - FEV - W06 -W07 ...

Pour ma combobox j'ai fais cela:

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim i For i = 9 To 75 ComboBox1.AddItem Sheets("Sheet1").Cells(7, i) Next   End Sub

---

Je ne veux pas selectionner les noms des mois, seulement les semaines
plusieurs choix:

- je me tape les 57 semaines a la mano
- je fais un "if" + noms des mois et je dis que je ne les selectionne pas
- je dis que je selectionne de la 2eme colonne a la 6 et de la 7eme a la 12 etc.
Ou encore une autre solution.

qu'est-ce qui est le mieux?

A la mano je vais y arriver, mais pour les autres solutions j'aurai besoin d'aide.
Merciiii

Code:

---

1 2 3 4 5 6 7

Dim i As Byte   With Sheets("Sheet1") For i = 9 To 75 If Left(.Cells(7, i).Value, 1) = "W" Then Me.ComboBox1.AddItem .Cells(7, i).Value Next i End If

---

thank you