Sub TraitementEtatBatchMiz19()
Dim Msg, Style, Title, Response
Msg = 'Veuillez lancer l'extraction de l'etat MIZ19 sous codex puis cliquez sur OK'
Style = vbOK + vbQuestion
Title = 'Traitement de l'état batch MIZ19'
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
End If
End Sub