Bonjour,
essaye avec ce code qui va copier ta feuille dans une nouvelle, efface le contenue des cellules, imprime et supprime cette derniere:
Sub Macro1()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(1)
Selection.ClearContents
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub