Aide traduction VBA

Bonjour, j'aimerais traduire le code suivant en langage VBA s'il faut, j'ai tenté mais sans succès.

Voici le code en français :

Pour chaque onglet dont la cellule B1 = ''Compte'', faire les règles de copies de fichier ci joint.

Dans le fichier joint, la ligne de destination de 6, mais dès qu'elle est complète, il faut que la copier se fasse sur la 7 puis la 8..... jusqu'à ce que l'ensemble des onglets respectant la condition B1 = ''Compte'' aient effectué la copie.

Je vous remercie pour votre aide,

Bien à vous

Bonjour momnes,

à tester,

ps/ il faut renseigner la variable onglet_condition_de_base

Sub test()
Set sh = Sheets("Feuil1")
rw = sh.Cells(Rows.Count, 1).End(xlUp).Row  'Derniere Ligne
For i = 2 To rw
    onglet_destination = Cells(i, "B").Value
    cellule_destination = Cells(i, "C").Value
    valeur_à_transférer = Cells(i, "A").Value
'    onglet_condition_de_base = ???
    Sheets(onglet_destination).Range(cellule_destination) = Sheets(onglet_condition_de_base).Range(valeur_à_transférer).Value
Next
End Sub
Rechercher des sujets similaires à "aide traduction vba"