Effacer le contenu des lignes du mois (m-3) en se basant sur la date

Bonjour, je souhaite effacer toutes les lignes du mois (m-3) en se basant sur la date actuelle. 
donc là on est en juillet, je souhaiterais effacer toutes les lignes du mois d'avril. 
sachant que la colonne contenant les dates est la colonne (B) donc (2)
auriez vous un code qui fonctionne ? 

Sub DeleteRows1()
    Dim x As Long
    Dim iCol As Integer

    iCol = 2 

    For x = Cells(Cells.Rows.Count, iCol).End(xlUp).Row To 2 Step -3
        If Cells(x, iCol).Value < Date Then
            Cells(x, iCol).EntireRow.Delete
        End If
    Next
End Sub

Bonjour, à tester:

Sub DeleteRows1()
    LaDate = DateAdd("m", -3, Date)
    Dim i As Long
    For i = Range("B2").End(xlDown).Row To 2 Step -1
    If Range("B" & i) < LaDate Then Rows(i).Delete
    Next i
End Sub

Il marche bien merci