Problème positionnement de recopie de cellules

Bonjour,

J'ai commencer à écrire une macro, mais je n'arrive pas à la paramétrer correctement pour recopier les cellules d'une feuille à un endroit bien défini d'une autre feuille, pour faire plus simple, les 4 premières valeurs se mettent au bon endroit mais après je ne sais pas où elles se mettent. j'espère avoir été assez clair. Pour comprendre mon soucis, je joint mon fichier.

Merci d'avance si quelqu'un peut m'aider.

Cordialement

Bonjour,

Private Sub Fin_de_mois_Click()

'Mise à jour feuille fin de mois

    Application.ScreenUpdating = False

    Set fa = Sheets("Affectation")
    Set fm = Sheets("FM vierge")

    For i = 5 To fa.Range("B" & Rows.Count).End(xlUp).Row

            fm.Cells(Int((i + 1) / 2) * 25 - 70, 9 - 6 * (i Mod 2)) = fa.Cells(i, 2)
            fm.Cells(Int((i + 1) / 2) * 25 - 67, 9 - 6 * (i Mod 2)) = fa.Cells(i, 3)

    Next i

End Sub

Bonjour Steelson,

J'ai testé la macro et elle marche.

Merci beaucoup