Userform Comparaison vba date aujourdhui et dépassées

Bonjour,

je suis en train de faire un userform et j'aimerai qu'il se remplisse avec des données en fonction d'une date. Si la date est comprise entre "aujourd'hui dépassé de 7 jours" et "aujourd'hui dépassé de 14 jours" et que "relance 1" est vide alors copie de plusieurs cellules dans textboxs puis message box "remplir relance1". L'idée est ensuite de partir dans des elseif pour faire la même chose avec relance 2, relance 3, etc...

L'utilisateur entrerai du text dans relance 1 si demandé, validerai puis l'userform serait de nouveau lancé pour identifier si d'autres relances nécessitent une action. Et ce, jusqu'à ce qu'il n'y ai plus de relance à faire. Il y'aurait ainsi un message box qui expliquerait que tout à été traité et il se fermerai en cliquant sur ok.

J'ai commencé la macro. La voici, c'est juste la partie sur relance 1 étant donné que pour la suite ce sera plus ou moins les même éléments :

Private Sub UserForm_Activate()
Dim z As Long
Dim lastligne As Integer

'Derniere ligne du tableau de la feuille Ansot
lastligne = Sheets("Ansot").Range("A65536").End(xlUp).Row


For z = 2 To lastligne

If Worksheets("Ansot").Cells(z, 4).Value < DateAdd("d", -7, Date) And Worksheets("Ansot").Cells(z, 4).Value > DateAdd("d", -14, Date) And IsEmpty(Worksheets("Ansot").Cells(z, 17)) = True Then

With Worksheets("Ansot")
.Cells(z, 1).Value = TextBoxA
.Cells(z, 2).Value = CDate(TextBoxB)
.Cells(z, 4).Value = CDate(TextBoxC)
.Cells(z, 5).Value = CDbl(Me.TextBoxD) * 1
.Cells(z, 6).Value = TextBoxE
.Cells(z, 13).Value = CDbl(Me.TextBoxF) * 1
.Cells(z, 14).Value = TextBoxRE1
.Cells(z, 15).Value = TextBoxRE2
.Cells(z, 16).Value = TextBoxRE3
.Cells(z, 16).Value = TextBoxREH


End With
MsgBox "remplir relance 1", vbOKOnly, "Relance 1"
End If
MsgBox "Pas de relance cette semaine", vbOKOnly, "Pas de relance"
Next z

End Sub


Je pense que la partie "date" ne fonctionne pas, tous les lancements de macros me donne "msgbox pas de relance cette semaine". De plus ce msgbox se recharge tout seul quand je le quitte. (surement lié au lancement d'userform à l'activation de l'onglet)

Rien ne s'affiche jamais dans la textbox

J'ai souvent un problème d'incompatibilité sur le ".Cells(z, 2).Value = CDate(TextBoxB)"