Salut tout le monde,

j'ai cette fonction



Function dimanche() As Boolean
Dim dat As Date
Dim rep As Integer
dat = Me.TxtDate