diff --git a/Date-et-heure.md b/Date-et-heure.md
index 38ebe9f..35c269d 100644
--- a/Date-et-heure.md
+++ b/Date-et-heure.md
@@ -1,5 +1,12 @@
 # [[Date et heure|Home]]
-
+### Fonction retournant le début de semaine de la semaine actuelle (le lundi)
+#### *Paramètre d'entré : rien*
+#### *Paramètre de sortie : Date*
+``` VB
+    Public Shared Function GetDateWithDayAsMonday() As Date
+        Return Today.AddDays((Today.DayOfWeek - DayOfWeek.Monday) * -1)
+    End Function
+```
 
 
 ###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*
\ No newline at end of file