Sub MiseEnPage()
Dim DLig As Long, RngS As Range, RngD As Range
Dim NbG As Long, Groupe As Long
Dim NbLigPP As Long ' Nombre de ligne par page
Dim Col As Integer
' Commencer sur la 3ème colonne
Col = 3
' Selon la marge que l'on souhaite avoir
NbLigPP = 50 ' Faire un apperçu avant impression pour le savoir
' Récupérer la dernière ligne remplie
DLig = Range("A" & Rows.Count).End(xlUp).Row
' Calculer le nombre de groupe de ligne
NbG = Int(DLig / NbLigPP)
' Pour chaque groupe de X lignes
For Groupe = 1 To NbG
' Définir le groupe de cellules sources
If Groupe = 1 Then
Set RngS = Range(Cells((Groupe * NbLigPP) + 1, 1), Cells(((Groupe + 1) * NbLigPP) - 1, 2))
Else
Set RngS = Range(Cells((Groupe * NbLigPP), 1), Cells(((Groupe + 1) * NbLigPP) - 1, 2))
End If
'RngS.Select
' Définir le groupe de cellules de destinations
Set RngD = Range(Cells(2, Col), Cells(2 + NbLigPP - 2, Col + 1))
'RngD.Select
' Copier les valeurs d'entête
Range(Cells(1, Col), Cells(1, Col + 1)).Value = Range("A1:B1").Value
' Copier les valeurs
RngD.Value = RngS.Value
' Incrémenter la colonne
Col = Col + 2
Next Groupe
End Sub