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