justement cela serait une autre solution c'est de transformer la cellule d'origine sh2.Cells(i, 5) en texte avant de la copier en C4
j'ai fait l'ajout suivant, avant de coller en C4
myDate = sh2.Cells(i, 5).Value
sh2.Cells(i, 5).NumberFormat = "@"
sh2.Cells(i, 5).Value = Format(myDate, "mmmm...