Dim M As String
Sub Bouton1_QuandClic()
nf = Application.GetOpenFilename("fichiers Xls,*.xls*")
If Not nf = False Then
Workbooks.Open Filename:=nf
M = InputBox("Choisir mois", "Choisir mois")
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = M
Sheets(3).Range("a1:u1").Copy Sheets(M).Range("b1:v1")
Sheets(M).Range("a1") = "Mois"
Sheets(M).Range("x1") = "Mois"
Sheets(M).Range("x2") = M
For i = 2 To Sheets.Count - 1
Sheets(i).AutoFilterMode = False
Sheets(i).Columns("a").Insert
Sheets(i).Range("a1") = "Mois"
For j = 2 To Sheets(i).Range("b65000").End(xlUp).Row
Sheets(i).Cells(j, 1) = Format(Sheets(i).Cells(j, 2), "mmmm")
Next
Sheets(i).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets(M).Range("x1:x2"), Sheets(M).Range("a1:v1"), True
Next
End If
End Sub