Faire tourner boucle pour traiter tous mes onglets d'un meme classeur

Bonjour a tous,

Je debute en VBA et aurais besoin de vos lumieres sur un sujet qui me bloque serieusement, j'ai essaye de modifier mon code ci-dessous je ne m'en sors pas depuis deux jours.

J'en viens au fait:

Je veux reporter le contenu de 3 cellules de mon sheet(1) soient cells(i,1),cells (i,2),cells(i,4) dans les cellules G1, I1, G3 de l'onglet correspondant au nom contenu en cells(i,9) de mon sheet(1).

Le code fonctionne mais pour un seul onglet (ex: i=2 to n) ou mes 3 cellules sont correctement reportees dans l'onglet voulu, par contre j'ai un probleme de boucle car elle ne s'incremente pas de 1 en 1 ( je ne sais pas comment faire)


Voici ce que j'ai tappe et qui fonctionne pour un onglet

Si vous avez une piste a explorer je suis preneur..... bonne journee







Sub reportsystaubtag()

Dim n As Integer
Dim i As Integer

For Each Sheet In Worksheets

For i = 2 To n

i= i + 1

Next i

If Sheet.Name = Sheets("Sheet1").cells(i, 9).Value Then

Sheet.Range("G1") = Sheets("Sheet1").cells(i, 1).Value
Sheet.Range("I1") = Sheets("Sheet1").cells(i, 2).Value
Sheet.Range("G3") = Sheets("Sheet1").cells(i, 4).Value


End If


Next

End Sub