Problème d'envoi d'un mail avec PJ

Sub Mail()
If MsgBox("Voulez-vous envoyer un mail au fournisseur de la facture sélectionné?", vbYesNo, "Confirmation") = vbYes Then
    Dim MonMail As Variant
    Dim Fichier As Variant
        Fichier = Application.GetOpenFilename(, , "Sélection du fichier", , "")
            MsgBox Fichier
            If Fichier = "" Then
            MsgBox ("Aucune sélection, tâche annulée")
            Exit Sub
            End If
                ActiveCell.Copy Destination:=Sheets("DATA BASE").Range("AA2")
                Set MonMail = CreateObject("outlook.application")
                    With MonMail.Createitem(olmailitem)
                                .Subject = "Mail de confirmation"
                                .To = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 3, False)
                                .CC = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 4, False)
                                .Body = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 5, False)
                                .Attachement.Add Fichier
                                .Display
                    End With
            End If
    
End Sub