Couper inserer ligne

Rows(12).Insert: Cells(16, 1).Resize(, 5).Cut Destination:=[a12]

Sub Tri()
Dim Table() As String
Dim Nombre As Long
Dim Tourne As Long, Position As Long

Nombre = Sheets("Consommation").Range("B" & Rows.Count).End(xlUp).Row - 6
ReDim Table(Nombre)
'Chargement table
For Tourne = 1 To Nombre
Table(Tourne) = Sheets("Consommation").Range("C" & Tourne + 6) & Sheets("Consommation").Range("D" & Tourne + 6)
Next Tourne
'Récupération position
For Tourne = Nombre - 1 To 1 Step -1
 If Table(Nombre) > Table(Tourne) Then Exit For
 Position = Tourne + 6
Next Tourne
    Rows(Nombre + 6).EntireRow.Cut
    Rows(Position).Insert Shift:=xlDown
End Sub

Dim z As Long, x
x = Range("A" & Rows.Count).End(3).Row
z = Range("A" & Rows.Count).End(3).Value
Rows(z + 6).Insert: Cells(x + 1, 1).Resize(, 5).Cut Destination:=Range("A" & z + 6)

Sub es()
Dim x As Long, z, i As Long
 x = Range("c" & Rows.Count).End(3).Row
 z = Left(Range("c" & Rows.Count).End(3).Value, 1)
 For i = 7 To Cells(Rows.Count, 3).End(xlUp).Row
 If Cells(i, 3) = z Then
 Rows(i + 1).Insert
 Cells(x + 1, 2).Resize(, 5).Cut Destination:=Range("B" & i + 1)
 Exit For
 End If
 Next i
End Sub