Par souci d'optimalisation, je me demandais si on peut am=C3=A9liorer ce bo=
ut de code.
Je pense surtout au collage des valeurs et formats en une seule ligne
With ActiveSheet
.Range("MonInsertion").Copy
.Range("A5").PasteSpecial Paste:=3DxlValues
.Range("A5").PasteSpecial Paste:=3DxlPasteFormats
Application.CutCopyMode =3D False
End With
Merci d'avance pour vos commentaires,
Tr=C3=A8s bonne journ=C3=A9e =C3=A0 tous.
Emile
Le Môssieur il a dit "en une seule ligne"... pfffff faut toujours surveiller ce que tu fais ;-)))))) [MonInsertion].Copy [A5] : [A5]=[MonInsertion] : Application.CutCopyMode = False -- JièL Sur et bien veillant Le 17/08/2016 à 11:54, LSteph a écrit :
Le Môssieur il a dit "en une seule ligne"... pfffff faut toujours surveiller ce que tu fais ;-)))))) [MonInsertion].Copy [A5] : [A5]=[MonInsertion] : Application.CutCopyMode = False -- JièL Sur et bien veillant Le 17/08/2016 à 11:54, LSteph a écrit :