Macro/envoi de mail sur excel

Sub Email()

Dim outlookDossier As Outlook.MAPIFolder
Dim outlookMessage As Outlook.MailItem
Dim Envoyer_à As String
Dim Copie_à As String
Dim vObjet As String
Dim vMessage As String
Dim vCellule As Object
Dim Sign As String
Dim Sig As String

  Envoyer_à = "e@gmail.com"
  Copie_à = "jb@t.fr "
  
Lig = 4
Do While Cells(Lig, 3).Value <> ""
        
  If Cells(Lig, 7).Value = "" Then
     Cells(Lig, 7).Value = "Envoyé"
     vObjet = "Stock Delfly"  ' description
     vMessage = "Bonjour,</br></br>" _
               & "Un conducteur de la société va se présenté chez vous pour reprendre sur notre compte le container " & Cells(Lig, 4).Value _
               & "</br></br>Merci d'autoriser la sortie,</br></br>" _
               & "Cordialement</br></br>" _
               & "Exploitation - Tr</br></br>"
    Set outlookDossier = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set outlookMessage = outlookDossier.Items.Add
    With outlookMessage
        .Subject = vObjet
        .To = Envoyer_à
        .CC = Copie_à
        .HTMLBody = vMessage
        .Send
    End With
   End If
    Lig = Lig + 1
    Loop
    Set outlookMessage = Nothing
    Set outlookDossier = Nothing
End Sub