Copier cellules avec condition

[Magg]

Bonjour,

J'aurai besoin de votre aide sur VBA. Je voudrais remplir l'onglet Bilan automatiquement (j'ai rentré manuellement les résultats attendus pour les trois premières colonnes pour que vous compreniez mieux ce que je souhaite faire).
Je chercher à copier les cellules de l'onglet détail jusqu'à tomber sur une valeur qui vaut 0 dans la colonne C puis reprendre dès qu'on change de référence.
J'ai donc essayé de faire une boucle avec DO WHILE mais elle ne fonctionne pas dès le début, notamment à cause de For sans Next mais même en essayant autre chose que For, je n'arrive pas à présenter mes plages pour mes variables.

Sub Réf()

Dim lv As Integer 'n° ligne vide bilan
For a = 33 To 51 Step 1 'n° ligne des intervalles
For b = 52 To 70 Step 1
For c = 71 To 89 Step 1
For d = 90 To 108 Step 1

lv = Worksheets("Bilan").Cells(Rows.Count, 1).End(xlUp).Row + 1
Do
Worksheets("Détail").Range(Cells(a, 1)).Copy Worksheets("Bilan").Range(Cells(lv, 1))
Loop While Worksheets("Détail").Range(Cells(a, 3)).Value <> 0      'Adapter le 3 en fonction du nombre de cellules de la ligne à copier
         ' réappliquer la formule pour b, c, d ...

End Sub

Auriez-vous des indications à me donner ?

D'avance, merci.

 

[fanfan38]

Bonjour
Ci joint ma solution
Je me suis permis de modifier certaine formule.. A toi de voir..
j'ai mis sur une autre feuille les lignes qui étaient cachées sur détails en 22* et plus
A+ François

 

[Magg]

Bonjour fanfan38, un grand merci pour la base, c'est ce que je cherchai. Je suis en train de la travailler et ça conviendra parfaitement !