Private Sub Impression_Click()
Dim REP As Byte
If Range("P44") = FAUX Then
MsgBox "Le type du poste choisi n'est pas compatible avec le type du centre analytique. Veuillez selectionner un poste dont le type est compatible !", vbCritical + vbOKOnly: Exit Sub
End If
If Range("N43") <> 0 Then
MsgBox "Vous n'avez pas rempli tous les champs (cases en rouge) !", vbCritical + vbOKOnly: Exit Sub
End If
REP = MsgBox("Voulez vous confirmer l'impression de la Fiche finale ?", vbYesNo)
If REP = vbYes Then
Flag = True
Sheets("Fiche finale").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Flag = False
Else: MsgBox "Anulation", vbOKOnly
End If
End Sub