Bonjour,
une proposition ... théorique, avec, dans le tableau cible, une colonne contenant toutes les dates à récupérer :
Sub Enregistre()
Dim CeJour&, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Feuille cible")
Set ws2 = ThisWorkbook.Worksheets("Feuille...