voici mon code complet
Sub test5()
Dim oOutlook As Object
Dim Mafeuille As Worksheet
Dim NbLigne As Integer
Set Mafeuille = ThisWorkbook.Sheets("Dashboard")
'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Application.CountIf([Tableau153], "><")
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne + 5).Select
'avec l'objet MailEnvoie on envoie dans le corps du mail
Set oOutlook = CreateObject("Outlook.application")
Dim oMail As Object
Set oMail = oOutlook.createItem(o)
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
.to = "***********
@gmail.com"
.Subject = "Extrait tableau" & ThisWorkbook.Name
Selection.Copy
oObjetWord.Range(0).Paste
.Display
.Send 'envoie du mail
End With
'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"
End Sub