Code VBA "Suppression de ligne sous condition"

Bonjour,

Je cherche le code VBA me permettant de supprimer sur mon tableau ci-joint, toutes les lignes qui ont une date avant le 01/01/2014 (colonne G).
Merci d’avance de votre aide !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test() Dim LastLig As Long   Application.ScreenUpdating = False With Worksheets("Sheet1") .AutoFilterMode = False LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("G2:G" & LastLig).AutoFilter , Field:=1, Criteria1:="<" & DateSerial(2014, 4, 1) If .Range("G2:G" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("G3:G" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With End Sub

---

Merci beaucoup Mercatog!