Sub InserSup()
'
' InserSup Macro
Dim DerLigne As Integer
DerLigne = [A93].End(xlUp).Row
Range("A" & DerLigne & ":F" & DerLigne).Select
Selection.AutoFill Destination:=Range("A" & DerLigne & ":F" & DerLigne + 1), Type:=xlFillDefault
Range("A" & DerLigne + 1 & ":B" & DerLigne + 1).Clear
Range("E" & DerLigne + 1).Clear
End Sub