Insérer sur la même ligne des données réparties sur deux lignes.

Option Explicit
Option Base 1
'--------------------------------------------------------------
Sub reorganiser()
Dim Derlig As Long, T_in, Nbre As Long, T_out
Dim Cptr1 As Long, Cptr2 As Long, Col As Byte
Dim Start As Single

'---------------------------initialisations
    Application.ScreenUpdating = False
    Start = Timer
    With Sheets(1)
        'mémorisation en RAM tableau brut
      Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row + 2
        T_in = .Range("A2:F" & Derlig)
        'mémorisation en RAM tableau réorganisé
        Nbre = Application.CountIf(.Columns("A"), "Compte client")
    End With
    ReDim T_out(Nbre, 8)
    
'---------------------------------- parcours T_in vers T_out
    For Cptr1 = 1 To UBound(T_in) Step 4
        Cptr2 = Cptr2 + 1
       'ligne client
        For Col = 1 To 4
            T_out(Cptr2, Col) = T_in(Cptr1, Col)
        Next
        'ligne adresse
        For Col = 3 To 6
            T_out(Cptr2, Col + 2) = T_in(Cptr1 + 2, Col)
         Next
    Next
'-------------------------------------Restition en feuille2 du tableau réorganisé
    With Sheets(2)
         .Range("A2:H20000").Clear
        .Range("A2").Resize(Nbre, 8) = T_out
        .Range("A2:H" & Nbre + 1).Borders.Weight = xlThin
        .Select
    End With
    Application.ScreenUpdating = True
    MsgBox "Base de données des " & Nbre & " clients réorganisée en " & Timer - Start & " secondes."
End Sub