Bonjour,
Dans le module du classeur (ThisWorkbook) tu colles ce code et tu testes pour vois si le résultat convient :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cel As Range
Dim Jour As Integer
Dim Mois As Integer
Dim Annee As Integer
Set Cel = Target.End(xlUp)
If Cel.Value = "Date" Then
Annee = Year(Date)
With Sh
Mois = Switch(.Name = "Janv", 1, _
.Name = "Fevr.", 2, _
.Name = "Mars", 3, _
.Name = "Avril", 4, _
.Name = "Mai", 5, _
.Name = "Juin", 6, _
.Name = "Juillet", 7, _
.Name = "Août", 8, _
.Name = "Sept.", 9, _
.Name = "Octobre", 10, _
.Name = "Novembre", 11, _
.Name = "Décembre", 12)
End With
Jour = Target.Value2
Application.EnableEvents = False
Target.Value = CDate(Jour & "/" & Mois & "/" & Annee)
End If
Application.EnableEvents = True
End Sub