Sub MSG_MAITREAFTTEST2()

    Dim OutApp As Object
    Dim oBjMail As Object
    Dim TexteMail As String
    Dim TexteSignature As String

    ' Initialisation d'Outlook et création d'un nouvel e-mail
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set oBjMail = OutApp.CreateItem(0)

    ' Désactivation de la mise à jour de l'écran et du mode couper/copier
    Application.ScreenUpdating = False
    Application.CutCopyMode = False

    ' Sélection et activation de la feuille MAITRE_AFT_TEST2
    With Sheets("MAITRE_AFT_TEST2")
        .Visible = True
        .Activate
    End With

    ' Recalcul explicite des cellules en I et B pour garantir des valeurs à jour
    Sheets("MAITRE_AFT_TEST2").Range("I3:I29").Calculate ' Recalcule les cellules en colonne I
    Sheets("MAITRE_AFT_TEST2").Range("B3:B29").Calculate ' Recalcule les cellules en colonne B

    ' Création du corps du mail avec paste special
    Sheets("MAITRE_AFT_TEST2").Range("A3:A9").Copy
    Sheets("MAITRE_AFT_TEST2").Cells(1, 1).PasteSpecial Paste:=-4104 ' Colle comme texte dans la cellule A1 temporaire
    TexteMail = Sheets("MAITRE_AFT_TEST2").Cells(1, 1).Value ' Récupère le texte collé pour la première partie

    Sheets("MAITRE_AFT_TEST2").Range("A10:B29").Copy
    Sheets("MAITRE_AFT_TEST2").Cells(2, 1).PasteSpecial Paste:=-4104 ' Colle comme texte dans la cellule A2 temporaire
    TexteMail = TexteMail & "<br>" & Sheets("MAITRE_AFT_TEST2").Cells(2, 1).Value ' Ajoute la deuxième partie

    ' Ajout de la signature Outlook de l'utilisateur actuel
    On Error Resume Next
    TexteSignature = OutApp.Session.CurrentUser.GetExchangeUser().GetSignature ' Récupère la signature d'Outlook
    On Error GoTo 0

    TexteMail = TexteMail & "<br><br>" & TexteSignature ' Ajoute la signature au corps du mail

    ' Configuration de l'e-mail
    With oBjMail
        .To = Range("I4").Value ' Destinataire principal
        .SentOnBehalfOfName = Range("I3").Value ' Adresse d’envoi
        .CC = Range("I5").Value ' Destinataires en copie
        .Subject = Range("I6").Value & " [" & Range("K6").Value & "] - " & Format(Date, "dd/mm/yyyy") ' Objet du mail
        .HTMLBody = TexteMail ' Corps de l’e-mail en HTML
        .Display ' Affiche l'e-mail pour vérification (utiliser .Send pour envoyer directement)
    End With

    ' Libération des objets
    Set oBjMail = Nothing
    Set OutApp = Nothing

    ' Nettoyage de l'interface Excel
    Application.ScreenUpdating = True
    Application.CutCopyMode = False ' Assure que le presse-papiers est vidé

    ' Masquer la feuille MAITRE_AFT_TEST2 et revenir à la feuille Affichage
    'Sheets("MAITRE_AFT_TEST2").Visible = False
    'Sheets("Affichage").Select

    ' Changer la couleur de la forme MAITRE_MSG en vert pour indiquer que l'action est terminée
    'ActiveSheet.Shapes("MAITRE_MSG").Fill.ForeColor.RGB = RGB(0, 255, 0)

End Sub