Hello,
Pour accélérer le code, rajoute ces lignes en début d'instruction juste après le Sub :
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Et ca en fin d'instruction avant le End sub
Application.Calculation = xlCalculationAutomatic
Pour le multicritère sur la liste je passe mon tour
@+