boucle for avec variable comme fin

Bonjour à tous
je reviens vers vous car je suis à nouveau coincé.
Je cherche une solution pour une boucle for avec comme parametre de fin , la valeur qui se trouve dans une cellule.

Je m'explique.
J'ai créé un fichier avec des macros.
Une des macros récupère un fichier xml et le mets en forme.
Ensuite je compte le nombre de variable dans une colonne et je place l'info dans une cellule "G1"
je lance ma boucle for avec comme parametre de fin , la valeur de G1.

voici une parti du code :


Sub ImportXml()

ActiveWorkbook.XmlImport URL:=Application.GetOpenFilename("Fichier XML (*.xml),*.xml", , "Choisir le fichier"), ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$4")
Dim nb As Integer
nb = Application.WorksheetFunction.CountA(ActiveSheet.Range("G5:G65536"))
Range("G1").Value = nb

End Sub
----------------------------------
Sub Macro1()
J = 1
For I = 1 To "G1"
Worksheets("init").Activate
Range("A4").Select
ActiveCell.Offset(J, 4).Activate
While ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
J = J + 1
Wend

etc, etc, etc ......

Et là ça coince ....

merci par avance pour votre aide

Amicalement
christian