Test les conditions if

Bonjour le forum.

SVP le code suivant me permettra d'envoyer des sms.

Dim Recipient As Variant
    Dim Message As String
    Dim i As Integer

    Dim rowname, x As String
    Dim rownumber As String
    Dim rowdatenextpresta As String
    Dim rowdatelastcall As String
    Dim rownextpresta As Variant
    Dim datecall As String
    Dim datepresta As String
    Dim rowdatelastvisite As String
    Dim datelastsms As Date

    With Worksheets("CLIENTS")
        datelastsms = Cells(i, 46).Value
        If datelastsms + 10 < Now - Time Then
            Debug.Print
                Cells(i, 46).Value = Now
            Debug.Print
            Else

        If Weekday(Date, 2) = 2 And Now - Date > TimeSerial(9, 30, 0) Then
            x = "237"
          'For i = 35 To 5000

        For i = 35 To .Cells(Rows.count, 3).End(xlUp).Row

        rowdatelastvisite = Worksheets("CLIENTS").Cells(i, 7).Value
        rowdatenextpresta = Worksheets("CLIENTS").Cells(i, 13).Value
        rowdatelastcall = Worksheets("CLIENTS").Cells(i, 15).Value
        rownextpresta = Worksheets("CLIENTS").Cells(i, 14).Text
        datecall = Format(rowdatelastcall, "dd/mm/yyyy")
        datepresta = Format(rowdatenextpresta, "dd.mm.yyyy")
        datevisite = Format(rowdatelastvisite, "dd.mm.yyyy")

                    ''''''If (Day(.Cells(i, 13).Value + 10) < Day(Date) And Month(.Cells(i, 5).Value) = Month(Date)) Then

            If (((datepresta + 10) <= datevisite) And ((datecall + 10) <= (Now - Time))) Then
                ' anniversaire
                rownumber = .Cells(i, 4).Value
                If rownumber < 700000000 Then
                    'numéro valable
                    rowname = .Cells(i, 3).Value
                    Message = "Dear  " & rowname & ", It was desirable that you renew your " & rownextpresta & " no later than " & datepresta & ". It is with real pleasure that we invite you to call this number 699736671 so that we can schedule your appointment."
                    Recipient = x & CStr(rownumber)
                        ''''Message à envoyer
                    If MsgBox("Souhaitez-vous notifier Mr/Mme   rowname   par SMS pour l'inciter à, prendre un RDV ?" & Chr(13) & "Est-ce ok?", vbYesNo, "Envoi du SMS") = vbYes Then
                        Else
                          GoTo 100
                    End If
INFOS API..................................................................................................................
                End If
            End If

            Next i
            'End If
        End If
    End With
            Application.ScreenUpdating = True
100

   End Sub

CI-dessous mes difficultés

Je voudrais que dans la colonne AT de chaque ligne, soit stocké la date du dernier envoi des sms, pour de d'envoyer à nouveau le sms à la même personne dans une période.

Apres les recherches, j'ai produit ce code à cet effet, mail il ne marche pas.

        If datelastsms + 10 < Now - Time Then
            Debug.Print
                Cells(i, 46).Value = Now
            Debug.Print
            Else

En suite, je voudrais additionner 10 jours à dateviste et datepresta pour que cette condition soit ok.

If (((datepresta + 10) <= datevisite) And ((datecall + 10) <= (Now - Time))) Then

Enfin je voudrais dans ce msgbox avoir le choix de notifier pas sms un client ou pas

       If MsgBox("Souhaitez-vous notifier Mr/Mme   rowname   par SMS pour l'inciter à, prendre un RDV ?" & Chr(13) & "Est-ce ok?", vbYesNo, "Envoi du SMS") = vbYes Then

Cdlt