Mauvais positionnement du transfert de données

Bonjour,

je seche après avoir modifié la structure de mon fichier macro hebdo.

J'y ai rajouté des lignes.

Mon problème, je n'arrive pas à trouver la bonne formule qui me permettrait le bon positionnement de mes données venant du fichier planning b1.

Le transfert devrait se faire en ligne 10, 21, 32, 44, 55, 66 de macro hebdo.

For k = 7 To 21 Step 7

For col = 5 To 11

For m = 0 To 6

fd.Cells((7 * k / 3) + m, col) = f.Cells(k + m, col)

fd.Cells((7 * k) / 3 + 28 + m, col) = f.Cells(k + 21 + m, col)

merci de votre aide