Bonsoir Michel,
Dans ThisWorkbook effectivement :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Dim cel As Range
For Each cel in Source
If IsDate(cel) Then cel.NumberFormat = "dd-mm-yyyy"
Next
End Sub
La ou les cellules concernées sont simplement mises au format voulu.
Edit : j'ai ajouté la boucle
For Each...Next pour le cas d'une entrée simultanée dans plusieurs cellules (par exemple copier-coller à partir d'un autre fichier).
Bonne fin de soirée.