Salut,
Tu aurais pu dévérouillé ton projet. du coup j'ai pas testé, en le collant dans le module de ta feuille polyvalence: à priori tu as un décalage de 2 lignes et de 2 colonnes pour le jour : si toutes feuilles ont la même mise en page, il te reste à tester si la saisie est bien une date.
const NomF$="Polyvalence"
const Plage$="C20:AL52"
Const LDat&=17
Private Sub Worksheet_Change(ByVal Target As Range)
dim Col&,Lig&,Jour&
with target
if .cells.count>1 then exit sub
col=.column:lig=.row:jour=day(.value2)
end with
if not application.intersect(range(plage),target) is nothing then
with worksheets(worksheets.count) ' la dernière feuille
.cells(lig-2,jour+2)=worksheets(nomf).cells(ldat,col).value
end with
end if
A+++