Recherche code VBA pour rajouter l'année sur un export en jour/mois

Bonjour, je suis à la recherche d'un code VBA qui me permettrait de rajouter l' ou les année (s) (2021...) à la suite de mes dates qui arrivent en jour/mois dans mon export.

J'ai besoin pour mes calculs de rajouter l'année de l'export à la suite de mes dates via une boite de dialogue que l'utilisateur renseignera. L'export peut être à cheval sur deux années ex: 2021-2022 ou que sur une seule année.

En pj je mets mon fichier avec les explications.

Merci pour votre aide

Bonjour,

Mettre la première année en cellule R1 qui servira de référence.

Puis cliquez sur le bouton 'Insérer l'année"

le code

Sub Inserer_Annee()
    Dim i As Long, AnneeDeb As Long
    Dim Jour As String, Mois As String
    Application.ScreenUpdating = False
    DerLig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B5:B" & DerLig).NumberFormat = "@"
    AnneeDeb = Range("R1").Value
    Jour = Left(Cells(5, "B"), 2)
    Mois = Right(Cells(5, "B"), 2)
    Cells(5, "B") = CDbl(CDate(Jour & "/" & Mois & "/" & AnneeDeb))
    For i = 6 To DerLig
        Jour = Left(Cells(i, "B"), 2)
        Mois = Right(Cells(i, "B"), 2)
        If Mois * 1 < Month(Cells(i - 1, "B")) Then AnneeDeb = AnneeDeb + 1
        Cells(i, "B") = CDbl(CDate(Jour & "/" & Mois & "/" & AnneeDeb))
    Next i
    Range("B5:B" & DerLig).NumberFormat = "m/d/yyyy"
    Range("A1").Value = "RESTITUTION DETAILS PAR PERIODE du " & Cells(5, "B") & " au " & Cells(DerLig, "B")
End Sub

Cdlt

Merci Arturo,

C'est exactement ce que je voulais :) merci pour la rapidité.