Rebonjour !
En fait je ne comprend la boucle sur j
ReDim Preserve tabloR(1 To 7, 1 To 1) 'On définit la variable tableau qui va recevoir les résultats
For j = 1 To 9
If j <> 4 And j <> 8 Then
ReDim Preserve tabloR(1 To 7, 1 To 2)
For col = 1 To 7
j = Choose(col, 1, 2, 3, 5, 6, 7, 9) 'Pour faire correspondre les colonnes des 2 tableaux
jr = Choose(col, 1, 2, 3, 4, 5, 6, 7)
tabloR(jr, 1) = tablo(1, j) 'on remplit les titres du tableau résultat
Next col
k = k + 1
End If
Next j
A la première itération de j=1, les titres du tableau resultat sont deja remplis non?