Sub Insertion()
Dim t#, tablo, ncol%, resu(), i&, n&, j%
t = Timer
With [A1].CurrentRegion.Offset(1)
tablo = .Resize(.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
ncol = UBound(tablo, 2)
ReDim resu(1 To Rows.Count, 1 To ncol)
For i = 1 To UBound(tablo) - 2
n = n + 2
For j = 1 To ncol
resu(n, j) = tablo(i, j)
Next j, i
If n Then .Resize(n, ncol) = resu 'restitution
End With
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub