Sub mlkjm()
Application.ScreenUpdating = False
Range("a1").Select
For j = 1 To 3
lig = ActiveCell.Row
Rows(lig + 2).Select
For i = 1 To 11
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
Range("a" & lig + 1 & ":G" & lig + 1).Select
For i = 1 To 11
Selection.Copy
Range("a" & lig + 1 + i).Select
ActiveSheet.Paste
Next i
Next j
Application.CutCopyMode = False
End Sub