Slt Denis, et le forum bien entendu
Je te propose la solution suivante
Private Sub CommandButton1_Click()
For Mplage = 1 To 10 Step 2
a = 0 'Remise à 0 de a pour chacune des colonnes
d1 = Cells(Mplage, 1) ' une date en A1-->A3--> etc
d2 = Cells(Mplage + 1, 1) ' une date en A2-->A4--> etc
For di = d1 To d2
a = a + 1
Cells(a, (Mplage + 1) / 2 + 1) = di 'résultat dans la colonne B, C, D etc...
Next di
Next Mplage
End Sub
J'espère que cela répondra à ta question
@ bientôt
Valérie