Macro regroupant les différentes données

Option Explicit
'------------
Sub selectionner_multi()
Dim derlig1 As Integer, nbre_vide As Integer
Dim Cptr As Integer, Lig_deb As Integer, Lig_fin As Integer, Vides As Byte
Dim Recup(), Derlig2 As Integer

'----- initialisations
Application.ScreenUpdating = False
Range("L8:N1000").Clear ' après essais H8:J1000
derlig1 = Columns("A").Find("*", , , , , xlPrevious).Row
nbre_vide = Application.CountIf(Range("A8:A" & derlig1), "")
' ------Récupeérations
Lig_deb = 7
For Cptr = 1 To nbre_vide
     'recherche espaces vides
     Lig_deb = Columns("A").Find("", Cells(Lig_deb, "A"), xlValues).Row
     Lig_fin = Columns("A").Find("*", Cells(Lig_deb, "A"), xlValues).Row
     '
     On Error GoTo fin 'derlig1 atteint
     Vides = Lig_fin - Lig_deb
     ' commande à récupérer
     Recup = Range(Cells(Lig_deb - 1, "A"), Cells(Lig_fin - 1, "C"))
'-----restitution
     Derlig2 = Columns("M").Find("*", , , , , xlPrevious).Row + 1    ' après essais "I" aulieu de "M"
     With Cells(Derlig2, "L").Resize(Vides + 1, 3) ' après essais "H" aulieu de "L"
          .Value = Recup 'données récupérées
          'bordures
          .Borders.Weight = xlThin
          .Borders(xlInsideVertical).LineStyle = xlNone
          .Borders(xlInsideHorizontal).LineStyle = xlNone
     End With
     Lig_deb = Lig_fin
 Next
fin:
End Sub