Probléme Macro Date

SAlUt
Youpiii j'ai un probléme .....

Alors Voila la macro qui pose probléme :

Sub blablabla()
Dim simulation As Date
Dim MaDate As Date
Dim lig As Double


simulation = "11/05/2008 10:12"
MaDate = ActiveCell.Value

For lig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    Select Case Cells(lig, 1).Value
        Case DateDiff("n", simulation, MaDate) < 0
            Rows(lig).Delete
    End Select
Next lig

End Sub

Donc en faite le principe c que je réalise une différence entre 2 dates qui sont dans des variable : simulation et MaDate. Dans la variable MaDate j'ai voulu mettre la cellule active du programme.


But :Je voudrai que lorsque la différence entre les deux date est < 0 alors je supprime la ligne SINON je la garde (la macro ne supprime pas la ligne)



Voila je ne sais pas pourquoi mais ma macro se compile correctement mais ne fonctionne pas c'est à dire qu'elle ne supprime pas les lignes lorsque la différences entre les 2 date est < 0.


Merci de bien vouloir m'aider .
JD+