VBA extrcation d'attributs probleme de boucle

Bonjour,

J'ai créé un programme me permétant de récupérer les attributs sur autocad pour les rensigné sur Excel.
Le programme récupère les attributs des blocs qui son renseigner dans un tableau.
J'ai fait en sorte que se tableau puisse accueillir ne nouveau bloc par la suite
dans la case GX92 il y a le nombre d'attributs
dans la case GX93 il y a le nombre de blocs

au départ j'avais
for z = 94 to 150 et for w = 1 to 202

j'aimerai y remplacer par for Z = 94 to 94+ GX93 et for w = 1 to 202 + GX92

si quelqu'un peu m'aider, Merci

JP

..............
NombreBlocs = objExcel.Sheets("Tableau de données").Range("GX92").Value
NombreTitres = objExcel.Sheets("Tableau de données").Range("GX93").Value
NombreLigne = 1 + NombreBlocs
NombreColone = 1 + NombreTitres
For z = 94 To NombreLigne
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)
For w = 1 To 34
Select Case Attributes(J).TagString
Case objExcel.Sheets("Tableau de données").Cells(z, (w + 1)).Value: colonne = w
Case objExcel.Sheets("Tableau de données").Cells(z, 201).Value: colonne = 200
End Select
Next w
ExcelSheet.Cells(i, colonne) = Attributes(J).TextString
Next J
i = i + 1 'on passe à la ligne suivante pour le prochain
End Select
Next z
End If
Next
....................