Sub InsertRow()
Application.ScreenUpdating = False ' désactive les mouvements d'écran
numligne = Cells(65536, 5).End(xlUp).Row ' pour déterminer le n° de la dernière ligne
Range("A" & numligne & ":K" & numligne + 1).FillDown
Range("A" & numligne + 1 & "
" & numligne + 1).ClearContents
Range("G" & numligne + 1 & ":J" & numligne + 1).ClearContents
Cells(numligne + 1, 1).Select ' sélectionne la cellule colonne A de la nouvelle ligne
Application.ScreenUpdating = True ' active les mouvements d'écran
End Sub