Insérer une boucle

[Victor21]

Bonjour à tous.

Je souhaite coller dans ShtA (dans les 3 cellules B18, B37 et B56) les 3 premières données récupérées en colonne B de ShtM chaque fois que la ligne c de la colonne BR est >0, imprimer ShtA, et recommencer jusqu'en BR38 de ShtM.

Le code suivant parcourt BR7:BR38 de ShtM, copie et colle successivement les valeurs correspondantes de B7:B38 en B18 de ShtA

For Each c In Sheets(ShtM).Range("BR7:BR38")
        If c.Value > 0 Then
            c.Offset(columnOffset:=-68).Copy
            Sheets(ShtA).Activate
            Sheets(ShtA).Range("B18").PasteSpecial Paste:=xlPasteValues             Application.CutCopyMode = False
        End If
    Next c

    ActiveWindow.SelectedSheets.PrintPreview    'PrintOut Copies:=1

    End

Je comprends bien qu'il faut ajouter une boucle, et suppose qu'il me faut ajouter un compteur, mais ne sais pas faire.

Un nouveau coup de main me serait donc bien utile.

D'avance, merci.