Concatener/remplacer des numéros de mois

Bonjour à tous,

J'établis un diagramme de Gantt basique, sous la forme d'un calendrier.

J'ai réussi à récupérer les numéros de mois des différentes tâches pour les "coller" sur le calendrier.

Problème, le calendrier est laid, car pour chaque cellule donnant le numéro d'un jour, il y a une cellule donnant le numéro du mois.

Mon objectif est de concatener les numéros de mois en une seule cellule donnant le nom du mois (ex: 10-10-10-10-10 -> Octobre)

Je me tourne vers vous car je n'ai plus d'idées et que je ne trouve pas de solution.

Ci-dessous mon code et le rendu du diagramme, ce sera sans doute plus parlant que des mots

CODE RECUPERANT LES NUMEROS DE MOIS DES TACHES

dateDebut = Application.WorksheetFunction.Min(sheetTache.Range("D2:D28")) + 1
    dateFin = Application.WorksheetFunction.Max(sheetTache.Range("F2:F28")) + 1

    For j = 0 To DateDiff("d", dateDebut, dateFin) - 1

        sheetGantt.Range(POSITION_MOIS).Cells(1, j + 1) = Month(dateDebut)
        dateDebut = dateDebut + 1

    Next j

RENDU DU DIAGRAMME

Pièce jointe 1

OBJECTIFS DE PRESENTATION

Pièce jointe 2

Merci d'avance pour votre aide, bonne journée

Bonsoir,

voici ma petite version VBA, vite fait, à adapter, évidemment.

Deux boutons pour tester : CALENDRIER pour afficher un calendrier au hasard et AFFICHER MOIS pour la transformation des chiffres en mois.

A+