diff --git a/Date-et-heure.md b/Date-et-heure.md
index ee2a916..df2a0bc 100644
--- a/Date-et-heure.md
+++ b/Date-et-heure.md
@@ -3,7 +3,7 @@
 
 *Paramètre d'entré : rien*
 *Paramètre de sortie : Date*
-``` VBS
+``` VBA
     Public Shared Function GetDateWithDayAsMonday() As Date
         Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1)
     End Function