Public Sub SheeAdd()
Dim a(), Ws As Worksheet
a = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
Set Ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Ws.Name = a(Worksheets.Count - 1)
End Sub