Macro excel

Bonjour,

Question macro, je suis débutante. J'ai fait des recherches sur les forums mais j'arrive pas à trouver ma réponse.

Je fais générer des 2 courriels automatiquement de 2 façons et dans les 2 façons, je dois insérer la signature automatique de courriel de Outlook de l'utilisateur qui va générer la macro.

MACRO 1
Public Sub Envoyer()
ActiveSheet.Range("B1:G25").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "Bonjour," & vbLf & vbLf & "N'hésitez pas à me revenir si vous avez besoin d'informations complémentaires"
.Item.To = "***@***"
.Item.Subject = "Demande"
.Item.Display
End With
End Sub




MACRO 2
Public Sub Courriel()

Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = "***@***"
monItem.Subject = "Demande d'affectations - "
monItem.Body = "Bonjour," & vbLf & vbLf & "Merci de bien vouloir traiter la demande " & vbLf & vbLf & "N'hésitez pas à me revenir si vous avez besoin d'informations complémentaires"
Set mondoc = monItem.Attachments
monItem.Display
Set ol = Nothing
End Sub



Merci de m'aider.