Sub ce()
'
' ce
'
'
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""CutePDF Writer sur CPW2:"",,TRUE,,FALSE)"
Range("B5").Select
ActiveCell.FormulaR1C1 = "fdcfvghygb"
Range("B21").Select
ActiveCell.FormulaR1C1 = "k,jhbgf"
Range("B5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub