Microsoft 365 ajout ligne entre 2 lignes, et déplace données partielle sur nouvelle ligne

Sub Macro1()
Dim TabSource() As Variant
Dim TabDest() As Variant


With Sheets("DONNEES SOurce")
    TabSource = .UsedRange.Value
End With

ReDim TabDest(1 To 2 * UBound(TabSource, 1), 1 To 15)

For i = LBound(TabSource, 1) To UBound(TabSource, 1)
    For j = 1 To 15
        TabDest(2 * (i - 1) + 1, j) = TabSource(i, j)
    Next j
    
    For j = 16 To UBound(TabSource, 2)
        TabDest(2 * i, j - 15) = TabSource(i, j)
    Next j
Next i

Sheets("Dest").Range("A1").Resize(UBound(TabDest, 1), UBound(TabDest, 2)) = TabDest
End Sub

Sub Macro1()
Dim TabSource() As Variant
Dim TabDest() As Variant


With Sheets("DONNEES SOurce") 'avec la feuille source
    TabSource = .UsedRange.Value 'on met toutes les données dans un tablo vba
End With

ReDim TabDest(1 To 2 * UBound(TabSource, 1), 1 To 15) 'on dimensionne LE tablo de destination avec 2 fois plus de ligne (puisqu'on met les données sur 2 lignes) et 15 colonnes maximum

'si on met sur 3 lignes
'ReDim TabDest(1 To 3 * UBound(TabSource, 1), 1 To 15) 'on dimensionne LE tablo de destination avec 3 fois plus de ligne (puisqu'on met les données sur 3 lignes) et 15 colonnes maximum

For i = LBound(TabSource, 1) To UBound(TabSource, 1) 'pour chaque ligne du tablo source
    For j = 1 To 15 'les 15 premières colonnes
        TabDest(2 * (i - 1) + 1, j) = TabSource(i, j) 'sont mises sur la ligne "2*(i-1)+1
    Next j
    
    For j = 16 To UBound(TabSource, 2) 'les suivantes à partir de 16,
    'ou for j=16 to 18
        TabDest(2 * i, j - 15) = TabSource(i, j) 'sont mises sur la ligne "2*i"
    Next j
    
    'for j=19 to ubound(tabdest,2)
    'TabDest(2 * i + 1, j - 18) = TabSource(i, j) 'sont mises sur la ligne "2*i+1"
    'Next j
Next i

Sheets("Dest").Range("A1").Resize(UBound(TabDest, 1), UBound(TabDest, 2)) = TabDest
End Sub