[vba-excel] parcourir tableau

Bonjour,

J'ai le code suivant :
Ou je cree un tableau qui me recherche dans une sheet puis stocke des champs type ( MOIS x - TOTAL)
extrait tableau : mois01 - total , mois02 - total , mois03 - total , mois04 - total , mois05 - total , mois06 - total
je fais demander à l'utilisateur " le mois de référence"
et c'est la ou je bloque, je voudrais récréer un tableau ou autre solution proposée qui parcoure ce tableau (j) en me trouvant le mois de référence ((ex = 05) en sachant que le champ se nomme mois05 - total) et les mois précedents qui sont contenus dans le tableau (si c'est 05 , j'aimerais avoir 04,03,02,....) , le mois 06 ne m'interesse pas.
j'espere avoir été assez clair
n'hésitez pas si vous avez des questions
merci d'avance de votre aide


displaystring = "Entrez le mois de référence"
nbdays = InputBox(displaystring)

Set wrksheet = ActiveWorkbook.Worksheets.Add
wrksheet.Name = "data"

Dim Tableau()

i = 1
j = 0

For Each Cellule In Rows(8).Cells

If InStr(UCase(ActiveWorkbook.Sheets("Pivot Solutions").Cells(8, i).Value), "TOTAL") Then
ReDim Preserve Tableau(j)

Tableau(j) = i

j = j + 1

End If

i = i + 1
Next