[VBA] Envoi CSV par email

Bonjour tout le monde,

Je souhaite envoyer une copie d'une feuille excel nommée "feuille csv" à un destinataire dont l'adresse email est en cellule B4.
J'ai rédigé ce code.
La macro m'enregistre bien le fichier csv au bon format et me rédige bien l'email.

Mais le fichier csv n'est pas attaché en pièce jointe.
Où ai-je déconné?

Bonne journée,

Wurd

.

Sub envoi_csv()

Dim OutApp As Object
Dim OutMail As Object
Dim dline As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Dim CSVfileName As String

    CSVfileName = [B3].Value & " " & [B5].Value & ".csv"

    ActiveWorkbook.Worksheets("feuille csv").Copy
    ActiveWorkbook.SaveAs CSVfileName, FileFormat:=xlCSV
    ActiveWorkbook.Close False

On Error Resume Next
With OutMail
    .To = Range("B4")
    .Subject = " Expédition de votre commande " & [B5].Value
    .Display
    .BodyFormat = olFormatHTML
    .Attachments.Add ActiveWorkbook.Path & CSVfileName
    .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Bonjour wurdahitah,

.Attachments.Add ActiveWorkbook.Path & "\" & CSVfileName

Cordialement

Mais oui, suis-je bête !!!!!
Mille mercis :)