Hello mdidish,
Merci beaucoup pour ton aide, la macro fonctionne parfaitement comme suit, maintenant j'aimerais l'appliquer à tous les mois de l'année. Rajouter les feuilles : Janvier, Février ..........Décembre.
Private Sub Workbook_Open()
Dim i, j, k As Integer
Dim Base, Janv As...