Mise à jour de cycle jusque date du jour

Bonjour tout le monde,

Un problème de mise à jour de cycle se met en travers de ma route.

J'ai une date qui est censé se mettre à jour en fonction d'un cycle dès que la date du jour est dépassé. Jusque la pas de problème cela s'effectue bien.

Le problème se pose lorsqu'il ne suffit pas d'un cycle pour rattraper la date du jour. En effet la procédure se limite à un cycle et ne rattrape pas la date du jour. Je met un exemple ci-dessous.

Ex : 02/02/2012 - cycle de 48. Le système remplace la date par 21/03/2012.
Et il devrait cependant mettre la date du 29/09/2012 pour englober la date du jour.

Auriez vous une idée de comment faire ?

Sub cycles_à_jour()

 'Mettre à jour les cycles
Dim Derlig As Long, i As Long
   
    With Sheets("FTP")
      Derlig = .Range("F" & Rows.Count).End(xlUp).Row
      For i = 2 To Derlig
        'If .Range("H" & i) < .Range("P" & i) Then
        ' ou
        If .Cells(i, 8) < .Cells(1, 16) Then
          .Range("F" & i) = .Range("H" & i) + 1
          ' ou
          '.Cells(i, 6) = .Cells(i, 8) + 1
          .Range("H" & i) = .Range("F" & i) + .Range("G" & i)
          ' ou
          '.Cells(i, 8) = .Cells(i, 6) + .Cells(i, 7)
        End If
      Next i
    End With

End Sub