Sub b()
Dim fin%, L%, C%, [B][COLOR=red]deb[/COLOR][COLOR=red]%[/COLOR][/B], LVide%, LInfo As Integer
Dim nbLignes%, nbColonnes As Integer
Dim t() As String
[B][COLOR=red]deb = 3[/COLOR][/B] [B][COLOR=teal]' première ligne[/COLOR][/B]
nbLignes = 26 [B][COLOR=darkgreen]' Nombre de lignes à insérer[/COLOR][/B]
nbColonnes = 3 [COLOR=darkgreen][B]' Nombre de colonnes concernées[/B][/COLOR]
fin = [A65536].End(xlUp).Row
ReDim t(fin * (nbLignes + 1), nbColonnes - 1)
[B][COLOR=darkgreen]' Remplit le tableau de String[/COLOR][/B]
For L = 1 To fin
[B][COLOR=darkgreen]' Copie les infos[/COLOR][/B]
For C = 1 To nbColonnes
t(LInfo, C - 1) = CStr(Cells(L, C))
Next
[B][COLOR=darkgreen]' Remplit de chaînes vides, les lignes vides du tableau[/COLOR][/B]
For LVide = LInfo + 1 To LInfo + nbLignes
For C = 0 To nbColonnes - 1
t(LVide, C) = ""
Next
Next
LInfo = LVide
Next
[COLOR=darkgreen][B]' Copie le tableau à partir de la 1ère ligne du tableau et ce, sur nbColonnes (= 3)[/B][/COLOR]
[A1].[B][COLOR=red]Offset(deb - 1).[/COLOR][/B]Resize(UBound(t) - nbLignes, nbColonnes) = t
End Sub