merci à vous pour votre retour
je vais tenter sachant que dans mon cas et en attendant j'ai procédé comme ceci pour régulariser
et bizarrement cela fonctionne, à ne rien comprendre sachant que la cellule de réception est bien en dd/mm/aaaa
If (Initial_EndDate <> Project_End_Date) Then
P_page.Cells(Match, 12) = Format(Project_End_Date, "dd/mm/yyyy")
P_page.Cells(Match, 12) = Format(P_page.Cells(Match, 12), "dd/mm/yyyy")
End If