Bonjour,
Tout d'abord merci de ta réponse.
J'ai essayé les conseils que tu m'as donnés. Cependant dans cette démarche je ne garde pas le format de l'onglet copié.
J'ai trouvé une autre méthode qui fonctionne .
With ActiveWorkbook.ActiveSheet
.Copy After:=Worksheets(Worksheets.Count)
End With
ActiveSheet.Name = facture
With ActiveSheet.Range("E23:E30")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
With ActiveSheet.Range("A29")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Je garde le format et les valeurs ne changent sur les cellules copiées .
Cordialement
J.J Martin