Bonsoir,
pour effectuer un filtre élaboré, il te faut obligatoirement au moins 2 cellules dans la zone de critères...
Donc, en I1 de la feuille "BD", tu mets "MOIS", et tu mets ta liste de validation en I2
Ensuite, tu modifies ton code comme ceci :
Code:
Sheets("BD").Range("B1:G15").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("BD").Range("I1:I2"), _
CopyToRange:=Sheets("Mois").Range("A1:F1"), Unique:=False
Columns("C:C").EntireColumn.AutoFit