Valeur cellule dans objet de mon mail en VBA

j'aimerai allez chercher la valeur dans la case E2 (numero d'affaire) de mon classeur pour l'introduire automatiquement dans l'objet de mon email que je déclenche par une macro.

mais ca ne marche pas . pouvez vous m'aider ? Merci

Demande de codification : Client xxxxxxxxx Numéro d'affaire xxxxxxxxxx

Sub Macro2()
'
' Macro2 Macro
Dim chemin_acces As String
Dim chemin_complet As String
Dim sFileName As String
Dim n_affaire As String

chemin_acces = Range("H1")
chemin_complet = chemin_acces & "codif-"
n_affaire = "-" & Range("E2")

'MsgBox (Chemin_complet)

For i = 5 To Sheets.Count

    Sheets(i).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    chemin_complet & Sheets(i).Name & n_affaire & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Sheets("Table_Cod").Select

Next i

' 2) Créer le mail et joindre le fichier
  ' Création d'une instance Outlook pour envoyer un mail
  Set OutObj = CreateObject("Outlook.Application")
  Set Email = OutObj.CreateItem(0)
  ' Avec mon objet Email
  With Email
    .Display  ' Afficher le mail pour afficher la signature
    ' Destinataire(s) du mail
    .To = "audrey@domaine.com"
    ' Copie du mail
    .CC = "daniel@domaine.com"
    ' Sujet de l'eMail
    .Subject = "Demande de codification : Client xxxxxxxx  range(E2)"
    ' Corps du mail avec signature à la fin
    .HtmlBody = "Bonjour Audrey," & "<BR><BR>" _
    & "Tu trouveras ci-joint des formulaires pour codif. Merci par avance <BR><BR>" & .HtmlBody

Hello,

à tester :

.Subject = "Demande de codification : Client xxxxxxxx" &   [E2]

Bonjour Jey72

Normal vous ne vous êtes pas aperçu de ce que contenait votre objet ?

  .Subject = "Demande de codification : Client xxxxxxxx " & Range("E2").Value

A+

Edit : oups, salut Rag02700

merci . j'apprend tous les jours