[COLOR=rgb(247, 218, 100)]For Each xFileDlgItem In xFileDlg.SelectedItems[/COLOR]
.Attachments.Add xFileDlgItem
Next xFileDlgItem
' .Display
' End With
' .Attachment.Adds FichXl
.Display
'*******
'Attention il y avait 1 pb aussi à la ligne suivante il manquait l'apostrophe avant => pour envois direct
'.Send '=> pour envois direct
End With
Sheets("Feuil2").Select
End Sub