Ave,
Dans la macro Date_SEL
remplace la ligne
If c.Value < 'SEL_date' Then
par la ligne :
If c.Value signeInf [SEL_date] * 1 Then
PS : remplacer signeInf par l'opérateur logique ''inférieur à''
PS bis : Un conseil : dans la mesure du possible, éviter les boucles au maximum. Dans ton cas, il serait bien préférable d'utiliser un filtre.
AV (aaa]