Sub essai()
Dim message, boutons, banniere, reponse
message = "La mise à jour des NODES est en cours ..." & vbLf & _
"Cliquez sur le bouton OK ci-dessous" & vbLf & "une fois la fenêtre DOS fermée" & _
vbLf & vbLf & vbLf & "SURTOUT PAS AVANT !!!"
boutons = vbOKOnly + vbExclamation + vbSystemModal
banniere = "Patientez"
reponse = MsgBox(message, boutons, banniere)
End Sub