Sub Suivi_Tests()
Dim DateFinPer As Date
Dim DateDebutPer As Date
Dim rngDate1 As Range, rngDate2 As Range
Dim k As Long, n As Long, I As Long, R As Date, kmax As Long, Nmax As Long
Dim var1 As Long, var2 As Long, var3 As Long
Dim Essai As Date
Dim wf As WorksheetFunction
Set wf =...