Sub Ajout_ligne()
Dim rowHeight As Variant, N&
'bouton pour ajouter une ligne
'trouver le n° de la dernière ligne (i)
i = Range("j" & Rows.Count).End(xlUp)(2).Row
' copier coller la ligne 3 dans la dernière ligne
Rows("3:3").Copy Rows(i)
Rows(i).rowHeight = Rows(3).rowHeight
N = 1
On Error Resume Next: N = [numero] + 1: On Error GoTo 0
ActiveWorkbook.Names.Add Name:="Numero", RefersToR1C1:=N
Cells(i, "J") = N
End Sub