Sub Print()
Dim MyValue As Byte
MyValue = MsgBox("Would you like to print ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
NomDeLaFeuille = Sheets("Feuil3").Range("J33") [COLOR="Green"]'le nom de la feuille copiée que l'on a ouverte s'est injecté ultérieurement ici par le biais d'une macro annexe[/COLOR]
With Sheets(NomDeLaFeuille)
.PageSetup.PrintArea = "$C$3:$J$82"
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub