Merci beaucoup pour la réponse, l'idée fonctionne bien !!
Le seul problème dans cette proposition c'est qu'entre chaque copier/coller, une ligne reste blanche, ce qui décale par la suite toutes les lignes. Est-il possible de ne pas avoir cette ligne blanche ?
Au temps pour moi, j'ai trouvé ! En mettant :
.Range(.Cells(i, debCol), .Cells(i, finCol)).Copy ShB.Cells(i + (i - 4), "D")
.Range(.Cells(i, debCol), .Cells(i, finCol)).Copy ShB.Cells(i + (i - 4) + 1, "D")
Donc sans les " * 2 " , ça fonctionne parfaitement!
Encore merci !