Sub Macro1()
Dim dl As Integer 'déclare la variable dl (dernière Ligne)
Dim pl As Range 'déclare la variable pl (Plage)
Application.ScreenUpdating = False 'masque les changements à l'écran
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
Set pl = Range("A1:D" & dl) 'définit la plage pl
Range("A1").AutoFilter 'lance le filtre automatique
Range("A1").AutoFilter , field:=2, Criteria1:="<01/01/2013" 'filtre la colonne B avec le critère < 01/01/2013
pl.SpecialCells(xlCellTypeVisible).ClearContents 'efface les cellules visible de la plage pl
Range("A1").AutoFilter 'annule le filtre automatique
Application.ScreenUpdating = True 'affiche les changements à l'écran
End Sub