Merci pour votre aide, j'ai réussi à régler mon problème
Voici le code que j'ai utilisé et je fusionne les cellules une fois la copier/coller effectuer
'Copie des lignes
For lig = 3 To 62 Step 3
.Cells(lig, Col).Copy
.Cells(lig + 1, Col).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next lig
'Fusion des cellules
Col = 1
For lig = 4 To 62 Step 3
.Range(Cells(lig, Col), Cells(lig + 1, Col)).Merge
Next lig