Bonjour xorsankukai,
merci pour ta réponse, c'est exactement ça
par contre à la place de la date c'est plus une mise en forme de cellule exemple:
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
j'ai essayer de rajouter ce morceau en enlevant la date mais ça ne fonction pas.
Cordialement