Ecrire les mois depuis le début de l'année

bonsoir à tous,

j'aimerai écrire les mois depuis le début de l'année

le mois en cours doit absolument s'écrire dans la cellule F5, puis le reste en G5,H5...

voici ce qu'on devrait avoir :

cellule F5=6

G5=5

H5=4

I5=3

J5=2

K5=1

Le code ci-dessous, me permet d'écrire l'inverse c'est à dire F5=6, E5=5, D5=4, C5=3, B5=2, A5=1

Sub EcrireMois()
mois = Month(Now())
Dim c As Integer
c = mois
While c <= mois And c > 0
Cells(5, c) = c
c = c - 1
Wend
End Sub

Merci d'avance de votre coup de main

Bonsoir,

Option Explicit
Sub EcrireMois()
    Dim col, i, mois As Integer
    mois = Month(Now())
    '6ème colonne soit F
     col = 6
    For i = mois To 1 Step -1
        Cells(5, col) = i
        col = col + 1
    Next
End Sub

Bonjour et merci Obryan