Microsoft 365 envoyer par boucle en 1 seul clic les sms du jour

Sub SEND(Recipient As String, Message As String)
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
'    Dim Recipient As String
'    Dim Message As String
    Dim Token As String
    'Set vars where phone numbers and msg are set in your sheet'
'    Recipient = Range("d4").Value
'    Message = Range("e4").Value

    Token = "eyJ0eXAiOiJKV1... etc..." ' <- mettre ton token ici

    Url = "https://api.smsfactor.com/send?text=" + Message + "&to=" + Recipient
    objHTTP.Open "GET", Url, False
    objHTTP.setRequestHeader "Authorization", "Bearer " & Token
    objHTTP.setRequestHeader "Accept", "application/json"
    objHTTP.SEND ("")
End Sub

Sub boucle()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    'Application.Calculation = xlManual
    Sheets("ma demande").Select
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        If Cells(i, 3) = Date Then '= [b1] à remplacer par "aujourd'hui
            SEND Cells(i, 4), Cells(i, 5)
'            Cells(i, 4).Select 'téléphone
'            Cells(i, 5).Select 'texte
            Cells(i, 7) = "vu"
        End If
    Next
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub