A+Sub SUIVIAPPLIC()
ActiveSheet.Range("A3:T52").Copy
Sheets("SUIVIAPPLIC").Range("A3").PasteSpecial xlPasteAll
Application.CutCopyMode = False
With ActiveSheet
.PageSetup.PrintArea = "$A$3:$AB$52"
.PrintOut Copies:=1
End With
End Sub
A+Sub TransfertImpression()
ActiveSheet.Range("A3:T52").Copy
With Sheets("SUIVIAPPLIC")
.Range("A3").PasteSpecial xlPasteAll
Application.CutCopyMode = False
.PageSetup.PrintArea = "$A$3:$AB$52"
.PrintOut Copies:=1
End With
End Sub