Sub ReupNumLig()
'Dim xDateDuJour2 As Date
'Dim xDateDuJour3 As Date
'OK = Date du jour saisie en cellule B2 : Formule = aujourd'hui()
xLig1 = Application.Match(Range("B2"), Range("Tableau2[Date]"), 0)
MsgBox xLig1
'NON OK = Affectation de la valeur de la cellule B26 à variable xDateDuJour2
xDateDuJour2 = Range("B2")
xLig2 = Application.Match(CLng(xDateDuJour2), Range("Tableau2[Date]"), 0)
MsgBox xLig2
'NON OK = Affectation de la date du jour (fonction date) à variable xDateDuJour3
xDateDuJour3 = Date
xLig3 = Application.Match(CLng(xDateDuJour3), Range("Tableau2[Date]"), 0)
MsgBox xLig3
End Sub