Sub Test2_OK()
Dim Mois, nMois, tabMois
tabMois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
Sheets("MOIS").Rows("13:1600").ClearContents
Mois = InputBox("Saisir le nom du mois en toute lettre.", "Choix Mois", "janvier")
nMois = CLng(20 + Application.Match(Mois, tabMois, 0))
ActiveSheet.Range("$B$12:$G$24").AutoFilter Field:=2, Criteria1:=nMois, Operator:=xlFilterDynamic
ActiveSheet.AutoFilter.Range.Copy Sheets("MOIS").Range("B12")
ActiveSheet.ShowAllData
End Sub