VBA Autocad problème de Boucle

Bonjour,

j'ai un souci dans une boucle

je veux transformer

For z = 64 To 65
Select Case nom
Case objExcel.Sheets("Tableau de données").Cells(z, 1).Value
ExcelSheet.Cells(i, 200) = Objet.Handle
Attributes = Objet.GetAttributes
For j = 0 To UBound(Attributes)
Select Case Attributes(j).TagString

Case objExcel.Sheets("Tableau de données").Cells(z, 2).Value: colonne = 1
Case objExcel.Sheets("Tableau de données").Cells(z, 3).Value: colonne = 2
Case objExcel.Sheets("Tableau de données").Cells(z, 4).Value: colonne = 3
Case objExcel.Sheets("Tableau de données").Cells(z, 5).Value: colonne = 4
Case objExcel.Sheets("Tableau de données").Cells(z, 6).Value: colonne = 5
Case objExcel.Sheets("Tableau de données").Cells(z, 7).Value: colonne = 6
Case objExcel.Sheets("Tableau de données").Cells(z, 8).Value: colonne = 7
Case objExcel.Sheets("Tableau de données").Cells(z, 9).Value: colonne = 8
Case objExcel.Sheets("Tableau de données").Cells(z, 10).Value: colonne = 9
Case objExcel.Sheets("Tableau de données").Cells(z, 11).Value: colonne = 10
Case objExcel.Sheets("Tableau de données").Cells(z, 12).Value: colonne = 11
Case objExcel.Sheets("Tableau de données").Cells(z, 13).Value: colonne = 12
Case objExcel.Sheets("Tableau de données").Cells(z, 14).Value: colonne = 13
Case objExcel.Sheets("Tableau de données").Cells(z, 15).Value: colonne = 14
Case objExcel.Sheets("Tableau de données").Cells(z, 16).Value: colonne = 15
Case objExcel.Sheets("Tableau de données").Cells(z, 17).Value: colonne = 16
Case objExcel.Sheets("Tableau de données").Cells(z, 18).Value: colonne = 17
Case objExcel.Sheets("Tableau de données").Cells(z, 19).Value: colonne = 18
Case objExcel.Sheets("Tableau de données").Cells(z, 20).Value: colonne = 19
Case objExcel.Sheets("Tableau de données").Cells(z, 21).Value: colonne = 20
Case objExcel.Sheets("Tableau de données").Cells(z, 22).Value: colonne = 21
Case objExcel.Sheets("Tableau de données").Cells(z, 23).Value: colonne = 22
Case objExcel.Sheets("Tableau de données").Cells(z, 24).Value: colonne = 23
Case objExcel.Sheets("Tableau de données").Cells(z, 25).Value: colonne = 24
Case objExcel.Sheets("Tableau de données").Cells(z, 26).Value: colonne = 25
Case objExcel.Sheets("Tableau de données").Cells(z, 27).Value: colonne = 26
Case objExcel.Sheets("Tableau de données").Cells(z, 28).Value: colonne = 27
Case objExcel.Sheets("Tableau de données").Cells(z, 29).Value: colonne = 28
Case objExcel.Sheets("Tableau de données").Cells(z, 30).Value: colonne = 29
Case objExcel.Sheets("Tableau de données").Cells(z, 31).Value: colonne = 30
Case objExcel.Sheets("Tableau de données").Cells(z, 32).Value: colonne = 31
Case objExcel.Sheets("Tableau de données").Cells(z, 33).Value: colonne = 32
End Select
ExcelSheet.Cells(i, colonne) = Attributes(j).TextString

Next j
i = i + 1 'on passe à la ligne suivante pour le prochain
End Select
Next z

en

For z = 64 To 113 'correspond au ligne
Select Case nom
Case objExcel.Sheets("Tableau de données").Cells(z, 1).Value
ExcelSheet.Cells(i, 200) = Objet.Handle
Attributes = Objet.GetAttributes
For x = 1 To 201 'correspond au colonne
For j = 0 To UBound(Attributes)
Select Case Attributes(j).TagString
Case objExcel.Sheets("Tableau de données").Cells(z, x).Value: colonne = (x - 1)
End Select
ExcelSheet.Cells(i, colonne) = Attributes(j).TextString
Next j
Next x
i = i + 1 'on passe à la ligne suivante pour le prochain

End Select
Next z

Mais la j'ai un souci car les données qui sont sensées se trouver en colonne 1 se retrouve en colonne 3 et les données qui sont sensées se trouver en colone 3 se retrouve en colonne 8

Merci d'avance
JP