Code VBA jour/mois si cellule non vide

Bonjour le forum,

Je rencontre un petit problème insolvable pour moi :

J'ai un code qui fait que la date du jour s'affiche dans la colonne B et que le mois s'affiche dans la colonne C dès qu'une valeur est inscrite (via un menu déroulant) dans la colonne D et tout cela sur la même ligne.

Ce code fonctionne très bien, cependant dès que j'ouvre mon classeur le lendemain, la date de la veille se transforme en date du jour :

Voici ledit code :

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim MaPlage As Range

         Set MaPlage = Range("C3:C5000")

         If Target.Count > 1 Then Exit Sub

         If Not Application.Intersect(Target, MaPlage) Is Nothing And Target.Value <> "" Then

             Target.Offset(, -2) = Day(Now)

             Target.Offset(, -1) = Format(Now(), "mmmm")

         End If

     End Sub

Que dois-je faire pour que cela ne se passe plus ?

Je vous remercie par avance de l'aide que vous allez pouvoir m'apporter

Bonjour,

Ta procédure est exécutée si tu modifies une cellule en colonne C et dans la plage spécifiée.

Tu dois donc préciser ta question.

As-tu d'autres procédures dans ton classeur et quelles sont elles ?

Cdlt.

Bonjour Jean-Eric,

j'ai d'autres procédures dans d'autres feuilles et en ce qui concerne la procédure dans ''ThisWorkbook'', voici ce qu'elle est :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

         ThisWorkbook.Save

     End Sub

C'est un fichier volumineux avec des données personnelles mais si je dois le modifier pour le partager alors je le ferai

Bonjour,

je vous joins le fichier modifié pour le réduire en taille et vierge (données personnel dans le fichier d'origine)