Private Sub Transfert()
Dim rep%
Sheets("Feuil1").Copy After:=Sheets(3)
With Sheets("Feuil1 (2)")
.Name = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "h" & Minute(Time) & "min"
rep = MsgBox("Voulez vous l'imprimer?", vbQuestion + vbYesNo, "IMPRESSION")
If rep = vbYes Then .PrintPreview
End With
Sheets("Feuil1").Range("A7:G7").ClearContents
End Sub