Raccourcis insertion date

"Tôt ou tard on finit tous par rejoindre le côté obscur des macros.."

Bof, on peut dire d'Excel et des macros ce que Clausewitz disait de la guerre : "c'est la continuation de la diplomatie par d'autres moyens". C'est bien utile (pas la guerre, les macros), dans ton cas, en particulier. La macro utilise les accents pour les noms des mois. Si ce n'est pas ton cas, modifie, ou la macro, ou les noms des feuilles. Par contre, elle ne s'occupe pas des majuscules.

Met cette macro dans le module "ThisWorkbook". Après, ça fonctionne tout seul :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim Mois As Variant, MoisNum As Variant
  If Target.Column = 1 Then
    Mois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", _
      "septembre", "octobre", "novembre", "décembre")
    
    With Sh
      If Target.Value < Day(DateSerial(Year(Date), _
        Application.Match(Sh.Name, Mois, 0) + 1, 0)) Then
        Application.EnableEvents = False
        Target.Value = DateSerial(Year(Date), _
          Application.Match(Sh.Name, Mois, 0), Target.Value)
        Application.EnableEvents = True
      End If
    End With
  End If
End Sub

Attention la macro est prévue pour fonctionner avec les dates en colonne A. Si ce n'est pas le cas, change le numéro de colonne :

If Target.Column = 1 Then

Si tu as un souci pour mettre en place la macro, dis-le. Enfin, formate la colonne au format personnalisé :
jmmmaa

Daniel