Bonjour,

Je te suggère cette solution, à un endroit,
tu mets deux cellules : hier et aujourdhui()
dans aujourdhui, tu mets la fonction aujourdhui()

sub x ()

i=1
j=1
cells(i,j).select 'sélectionnes hier
hier =selection
cells(i,j+1).select
aujourdhui = selection

cells(i+1,j).select
do while selection = hier
j=j+1
cells(i+1,j).select
loop

range(cells(i+1,j),cells(60000,j)).copy

cells(i+2,j).select
do while selection = aujourdhui
j=j+1
cells(i+2,j).select
loop


range(cells(i+2,j),cells(60000,j)).select

Activesheet.paste

end sub

l'idée est de trouvée la dernière date ou tu as mis les formules pour les copier dans la colonne du jour.
En espérant que ca t'ira