sortir d'une boucle si estvide

Sub Actualiser()
    Dim derlig As Long, i As Long
    With Sheets("bd")
        derlig = .UsedRange.Rows.Count

        For i = 3 To derlig
            If .Cells(i, 1) <> "" Then
                .Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
                .Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 5) - .Cells(i, 1).Offset(, 6)
            Else
                Cells(i, 1).Offset(, 6) = ""
                Cells(i, 1).Offset(, 7) = ""
            End If
        Next i
    End With

End Sub