Sub Test()
Set CellulesNonVides = Union(Cells.SpecialCells(xlCellTypeConstants, 23), Cells.SpecialCells(xlCellTypeFormulas, 23))
CellulesNonVides.Select
Selection.Copy
Sheets("Feuil3").Select
ActiveSheet.Pictures.Paste.Select
Selection.Cut
Dim OL As Object, myItem As Object
Set OL = CreateObject("Outlook.Application")
Set myItem = OL.CreateItem(olMailItem)
With myItem
.To = ""
.Cc = ""
.Subject = ""
.Display
End With
End Sub