Problème list box et check box

Code à ajouter dans ta Feuil2 (Acceuil). Ca balaye toutes les feuilles dont le nom ressemble à "course " et fais tes suppressions. Tu as plus qu'à mettre un bouton lié à la macro dans ta Feuil2 (Acceuil).

Si la solution te convient, merci de noter le sujet comme résolu

Sub SupprDate()
Dim madate As Long
Dim x As Integer
Dim ws As Worksheet

madate = CLng(Sheets("Accueil").Range("D3").Value)

For Each ws In ActiveWorkbook.Worksheets
    If LCase(ws.Name) Like "*course *" Then
        For x = ws.Range("A65536").End(xlUp).Row To 2 Step -1
            If CLng(ws.Range("A" & x)) < madate Then ws.Rows(x).Delete
        Next
    End If
Next ws

OK ça fonctionne nickel, tu m'auras été d'un grand secours