Double entrée date avec une boucle

Bonjour à tous,

J'aimerais doubler ma date sur 2 lignes avant de passer à la suivante.

mais ce code :

Sub test()
Dim Jour%, nbreJrs%, mois%, dat As Date, ws As Worksheet
Set ws = Sheets("mois")
nbreJrs = 31
mois = 9
annee = 2022
            For Jour = 2 To nbreJrs * 2 Step 2
                    dat = DateSerial(annee, mois, Jour)
                    ws.Cells(Jour + 1, 1) = dat 'jour matin
                    ws.Cells(Jour + 2, 1) = dat 'jour apr-midi
            Next
End Sub

donne çà:

Merci de votre aide

Hello,

Enlève ton step 2

Non désolé, j'ai trouvé la solution qui est:

            For x = 3 To nbreJrs * 2 Step 2
                    dat = DateSerial(annee, mois, jour)
                    ws.Cells(x, 1) = dat  'jour matin
                    ws.Cells(x + 1, 1) = dat 'jour apr-midi
                    jour = jour + 1
            Next

Edit modo : merci de rester soft avec les emoji