Bonjour à tous!!!

Je dois créer un test et je pense utiliser la fonction If cependant je ne sais pas trop comment m'y prendre et si c'est la fonction adéquate. Le test consiste a comparer la date d'une cellule avec celle entrée par l'utilisateur et si celle-ci est inférieur a la date entrée on ne modifie rien. Cependant si la date est supérieur alors on va modifier la valeur de 3 colonnes différentes et c'est de là que viens mon problème. J'ai essayer de commencer mon code comme ça:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim firstDate As Date
 Dim i As Long
 Dim Res As Variant
 
For i = 2 To ActiveSheet.UsedRange.Rows.Count
firstDate = CDate(InputBox("Entrer une date"))
 
If Range ("R" & i).Value < firsdate
   Then Res = Range ("R" & i).Value
Else
If Range ("R & i).Value > firstdate
   Then ....
A partir de là je ne sais pas trop comment insérer mes 3 modifications.
Merci pour votre aide!