Sub test()
lign_livretmot2 = lign_livretmot2 + 1
If lign_livretmot2 > 13 Then
With Sheets(numerofeuillemoteur2)
.PrintOut From:=1, To:=1, Copies:=1
.PrintOut From:=4, To:=4, Copies:=1
.Copy Before:=Sheets(1) 'copy
'Lignes pour création classeur et sauvegarde
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="c:\temp\" & numerofeuillemoteur2 & "_" & Replace(Date, "/", "_") & ".xlsx"
'--------------------
.Rows("8:13").ClearContents
.Rows("24:29").ClearContents
End With
lign_livretmot2 = 8
End If
End Sub