planning par trimestre

    'remplissage des ComboBoxes 3 et 4
    For Each cel In .Range("D2:CO2") 'boucle : sur toutes les cellules cel de la plage D2:IQ2
       If cel <> "" Then
       ComboBox3.AddItem Format(cel, "dddd dd mmm") 'ajoute la valeur de la cellule à la ComboBox3
        'ajoute le numéro de la colonne de la cellule cel (ce numéro n'apparaît pas dans la liste
        'voir les propriétés de la ComboBox3 : ColumnCount et ColumnWidths)
        ComboBox3.Column(1, ComboBox3.ListCount - 1) = cel.Column
        End If
        If cel <> "" Then
       ComboBox4.AddItem Format(cel, "dddd dd mmm") 'ajoute la valeur de la cellule à la ComboBox3
        'ajoute le numéro de la colonne de la cellule cel (ce numéro n'apparaît pas dans la liste
        'voir les propriétés de la ComboBox4 : ColumnCount et ColumnWidths)
        ComboBox4.Column(1, ComboBox4.ListCount - 1) = cel.Column
    End If
    Next cel 'prochaine cellule cel de la boucle