re,
essayez comme cela, pas testé.
et, s'il vous plait, mettez vos codes dans les balises de code à l'aide du bouton </>, c'est beaucoup plus agréable pour ceux qui vous lisent
Cordialement, @+
Private Sub CommandButton3_Click()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xOutMsg As...