Microsoft 365 Changer le compte par defaut VBA

Sub mailto_reception2()
Dim C As Account
With Sheets("Envoi confirmation recep UPS")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    
    Set ol = CreateObject("outlook.application")
        '--boucle
    For i = 2 To dl
        '--choix envoi ("x" en colonne G) ou pas
        If Cells(i, 11) = "x" Then
        Cells(i, 12) = ""
        Set ml = ol.createitem(0)
        ml.To = .Cells(i, 6)
        ml.Subject = .Cells(i, 17)
        'ml.CC = .Cells(i, 10)
        'ml.BCC = .Cells(i, 11)
        ml.Body = .Cells(i, 18)
        '--afficher le mail
    With ml
        .Recipients.Add "test@test.com"
        For Each C In olApp.Session.Accounts
          If C.SmtpAddress = "enlevement-sav@kingtony.eu" Then
              .SendUsingAccount = C
              Exit For
          End If
        Next C
        .Display
        .Send
    End With
        ml.Display

        '--- si vous souhaitez envoyer directement
        'ml.send
        '--- afficher date et heure d'envoi
        Cells(i, 12) = Now
       '---demande AR
        'ml.OriginatorDeliveryReportRequested = True
        '---demande confirmation de lecture
        'ml.ReadReceiptRequested = True
        End If
    Next i
End With
End Sub

For Each C In ol.Session.Accounts

Sub Supprmail()
    Dim n%, i%  'Déclaration des variables
    Application.ScreenUpdating = False
    With Worksheets("mafeuil1") 'Nom de la feuille à modifier suivant le cas
        n = .Range("A" & .Rows.Count).End(xlUp).Row 'N° de la dernière ligne remplit
          For i = n To 2 Step -1 'Boucle de la dernière ligne remplit vers la ligne 2 (première ligne remplit) par PAS de -1
              If Range("A" & i) > 0 Then .Range("A" & i & ":E" & i).EntireRow.Delete 'si la ligne de la colonne A est = à 0 , suppression de la ligne
          Next i
    End With
End Sub

If .Range("A" & i) > 0 Then .Range("A" & i & ":E" & i).EntireRow.Delete

.SendUsingAccount = C

Set .SendUsingAccount = C