Sub Création_Onglets()
Application.ScreenUpdating = False
xListeMois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
For F = 0 To 11
With Sheets("Données")
xMois = xListeMois(F)
.Range("$A$1:$M$820").AutoFilter Field:=1, Criteria1:=xMois
.Range("A1:M820").Copy
End With
xNbrOng = ThisWorkbook.Sheets.Count
Sheets.Add After:=Sheets(xNbrOng)
ActiveSheet.Name = xMois
With Sheets(xMois)
.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Next F
With Sheets("Données")
.Select
.Range("$A$1:$M$820").AutoFilter Field:=1
End With
MsgBox "Traitement terminé", vbInformation, "Création onglets"
Application.ScreenUpdating = True
ActiveWindow.TabRatio = 0.744
End Sub