Re ,
Tu peux aussi remplacer :
Set Tablo = Range("C2:V" & Range("A3").End(xlDown).Row - 1)
par:
Set Tablo = Range("C2:V" & Range("C2").End(xlDown).Row - 1)
Si tu saisis des dates par anticipation,Tablo se limitera aux tirages renseignés.
D'ailleurs "A3" était une erreur ,"A2" était plus logique.
Amicalement