Private Sub CommandButton1_Click()
FrmDefinition.Hide
If MsgBox('Voulez-vous imprimer le questionnaire ?', vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Sheets('Enquete').Visible = True
Sheets('Enquete').PrintOut
Sheets('Enquete').Visible = False
Else: MsgBox 'Veuillez cliquer sur OK pour envoyer le questionnaire à l'APAC Flux Espace 150', vbOKOnly
End If
Call Repondre
MsgBox 'Le questionnaire a bien été envoyé à l'APAC Flux Espace 150'
Application.Quit
End Sub