Diff dates

Bonjour,

je souhaiterais comparer deux dates, jusque-là la rien de sorcier. Mais j'aimerais l'intégrer dans une boucle et la sa coince.

Sa marche niquel comme cela : Range("W10") = DateDiff("m", Range("R10"), Now)

Mais programmer sa sur 2000 ligne... pas marrant alors j'ai une boucle mais sa plante
Help me please ! :)
Bonne journée


Private Sub test()

Dim DernLigne As Long
Dim i As Integer


DernLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = 6 To DernLigne


Cells(i, 21) = DateDiff("m", Cells(i, 18), Now)




Next

End Sub