Microsoft 365 envoie feuille active avec excel par email

[glfred]

Bonjour,
qui peux m'aider je veux utiliser ce script dans le fichier en piéces jointe pour envoyer une email avec excel mais comment envoyer la feuille active et ou les informations d'une cellule , jai testé juste avec un message cela fonctionne mais comment faire pour la feuilles active ou une celule
merci a vous

Option Explicit

Sub EnvoiMailCDO()
Dim mMessage As Object
Dim mConfig As Object
Dim mChps

Set mConfig = CreateObject("CDO.Configuration")

mConfig.Load -1
Set mChps = mConfig.Fields
With mChps
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> gmail "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'En principe, 25 fonctionne avec tout les serveurs.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

'Vous pouvez essayer sans ces trois lignes
'Mais si votre serveur demande une authentification,
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "adressemail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Passwrd mail"
'Si votre serveur demande une connexion sûre (SSL)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With

Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.To = "adressemail@gmail.com"
.FROM = "adressemail@gmail.com"
.Subject = "Le sujet du mail"
.TextBody = "coucou"
'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
'.AddAttachment 'Chemin et nom complet du fichier à joindre
.Send
End With




End Sub