Private Sub Imprime_Click()
Worksheets("Test").Activate
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
mes = MsgBox(" Imprime RFT Verso ?", vbOKCancel)
If mes = 0 Then Exit Sub
If mes = 1 Then
MsgBox "Retournez la feuille pour impréssion"
wordApp.Documents.Open ("c:\Auto_Dect\RFT.doc")
'objWord.Visible = False
wordApp.PrintOut
wordDoc.Close SaveChanges:=False
wordApp.Quit
End If
End Sub