créer une feuille

merci beaucoup, je vais pouvoir m'endormir car ... ça fonctionne :

Option Explicit

Sub way()
Dim NewSheet As Worksheet
Dim i As Integer
Set NewSheet = Sheets.Add(Type:=xlWorksheet)

For i = 1 To Sheets.Count

NewSheet.Cells(i, 1).Value = Sheets(i).Name
NewSheet.Move after:=Sheets(i)
Sheets('accueil').Select
Next i


End Sub


vous ne l'imaginez pas mais j'ai retrouvé le sourire, merci à tous

oui mais c'est là qu'il ma donné là formule de départ et je ne comprends pas grand chose à l'aide qui me parle d'objet et d'item dont je n'ai rien demandé. Pour moi, l'aide, c'est un moyen de me noyer.

Et si tu cliques sur un lien, tu pars dans des explications qui en demandent d'autres alors...

Bon, j'ai maintenant le moyen de créer une feuille et de revenir à la feuille d'accueil. Il ne me reste plus qu'à répété 12 fois cette création en nommant les feuilles par les noms des mois de l'année. Ensuite, il faudra que j'insère automatiquement un tableau avec des traits à partir de la ligne 6 jusqu'à la dernière cellule pleine de la colonne et jusqu'à la dernière colonne correspondant au dernier jour du mois. Puis, selon les activités, des cases viendront se colorier par rapport à des informations renseignées dans un userform déjà créé, selon des dates et des participants.
Ce n'est pas mal en 2 mois... :woohoo: :silly:

oups, ça m'apprendra à utiliser l'aide d'excel. J'ai donc supprimer la ligne responsable.

Merci et bonsoir, bonne nuit