Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Dim Signature As String
Dim mois As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    
' Ma signature
Signature = Sheets("Données").Range("M3").Value
mois = Sheets("Données").Range("S15").Value


'---------------------------------------------------------
   'Exemple pour envoyer un classeur en pièce jointe
   'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
   'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
   Nom_Fichier = "......"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
     With oBjMail
       .To = Sheets("Données").Range("G2").Value  ' le destinataire
       .CC = Sheets("Données").Range("G3").Value  ' en copie à
       .Subject = "......."          ' l'objet du mail
       .Body = "....." & vbCrLf & Signature  'le corps du mail ..son contenu
       '.Attachments.Add Nom_Fichier
       .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       .Send
    End With
    'ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub