Tri sur date avec résultat Listbox

Bonjour à toutes et à tous.

J'ai joint un fichier un fichier qui est le résultat de multiple tri extrait d'un logiciel métier. J'aurai aimé par le biais d'une commande pouvoir appliquer un tri sur la colonne "VALIDITE ASSURANCE" dont le résultat serait :

Faire ressortir toutes les dates inférieures au 1er du mois suivant le mois et l'année en cours dans un listbox imprimable avec en colonnes B,C,D,F,H

Merci pour l'aide éventuelle .

Bonjour, au plus simple ajoute une colonne alerte et applique un filtre dessus…

Ceci te permettra d'avoir la liste de ceux en alerte et ceux en erreur aussi car la date de validité n'est pas renseignée partout.

Bonjour,

à tester,

le résultat est mit sur la feuil2

Sub tranfert()
Dim lignes_visibles As Range, rw As Long
rw = Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Feuil1").ListObjects.Add(xlSrcRange, Range("$A$1:$H$" & rw), , xlYes).Name = "Tableau1"

Sheets("Feuil1").ListObjects("Tableau1").Range.AutoFilter Field:=7, Operator:= _
        xlFilterValues, Criteria1:="<" & DateSerial(Year(Now), Month(Now), 1 - 1)

With Sheets("Feuil1").ListObjects("Tableau1")
        Set objListRng = .HeaderRowRange
        objListRng.Copy Sheets("Feuil2").[A1]
        Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        lignes_visibles.Copy Sheets("Feuil2").[A2]
End With
End Sub