Sub test()
Dim Cel As Range, Plage As Range
Dim H As Integer, Lig As Long
'Protection de la feuille
ActiveSheet.Unprotect
'Calcul de la Hauteur d'un enregistrement
H = Range("A33").MergeArea.Rows.Count
'Calcul de la dernière ligne
'---------------------------------------------------------------
'For Lig = Cells(Rows.Count, "A").End(xlUp).Row To 33 Step -1
' If IsNumeric(Cells(Lig, "A")) Then
' Lig = Lig + 1 + H
' Exit For
' End If
'Next Lig
'Possibilité de calcul en fonction du dernier n° d'ordre
'---------------------------------------------------------------
Lig = Cells(Rows.Count, "A").End(xlUp).Row - 11
'copie de l'enregistement
[A33:N37].Copy
Range("A" & Lig).Insert Shift:=xlDown
'Formatage des ligne
Range("A" & Lig).MergeArea.Rows.RowHeight = [A33].RowHeight
'RAZ
Range("A" & Lig).MergeArea.ClearContents
Range("B" & Lig + 4).MergeArea.ClearContents
Range("C" & Lig).MergeArea.ClearContents
Range("C" & Lig + 1).MergeArea.ClearContents
Range("C" & Lig + 2).MergeArea.ClearContents
Range("C" & Lig + 3).MergeArea.ClearContents
Range("K" & Lig + 1).MergeArea.ClearContents
Range("G" & Lig + 2).MergeArea.ClearContents
Range("N" & Lig + 2).MergeArea.ClearContents
'Numéro d'ordre
Range("A" & Lig).MergeArea = WorksheetFunction.Max(Columns(1)) + 1
Range("K" & Lig + 9).MergeArea.Value = Range("A" & Lig).MergeArea.Value
Range("C" & Lig).Activate
'protection de la feuille
ActiveSheet.Protect
End Sub