Ajouter la date

Bonjour

J'ai un petit souci avec mon code mais je n y arrive pas, forcement sinon je ne vous poserai pas la question.

Sur ma feuille excel j'ai des infos de factures que j'ai rentré, et a chaque fin de mois je click sur mon bouton pour inscrire le nom du mois écoulé avec mon code.

Voici mon code

Sub DateDébutMois_Clic()
If Day(Date) = 1 Then Rows("9:10").Insert xlShiftDown: Range("I5").Value = Month(Date)
 With Range("I5")
        .Value = DateSerial(Year(Date), Month(Date), -1)
        .NumberFormat = "mmm yyyy"
    End With

End Sub

Seul petit problème je voudrais que le mois s’inscrit en colonne "I" et sur la première ligne soit "ligne 6 "

Je vous remercie de votre aide et vous souhaite une bonne journée

Cordialement

Max

Bonjour

Veux-tu reformuler ta demande. Car pour l'instant elle n'est pas claire et précise.