Conversion colonnes.

Sub distrib()
    Application.ScreenUpdating = False
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For lig = derlig To 1 Step -1
            'colonnes I-L
            .Range("I" & lig & ":L" & lig).Cut
            If lig = derlig Then
                .Range("A" & lig + 1).Select
                ActiveSheet.Paste
            Else
                .Range("A" & lig + 1).Select
                Selection.Insert Shift:=xlDown
            End If
            .Range("E" & lig & ":H" & lig).Cut
            .Range("A" & lig + 1).Select
            Selection.Insert Shift:=xlDown
        Next lig
    End With
    Application.ScreenUpdating = True
End Sub