Problem with ActiveSheet.Paste function

cheickna · #1 03-30-2022, 10:46 AM

Hello All,

I used for a long time a small code into a worksheet to avoid doing manual Copy/Paste.
Since 2019 this code worked well until yesterday. This is te part of my code where the problem happend.

Code:

            If ind > 5 Then 'Pour éviter de copier l'entête du tableau
                splagePrec = "A" + Trim(CStr(ind - 1)) & ":M" & Trim(CStr(ind - 1))
                Range(splagePrec).Select
                Selection.Copy
                splage = "A" + Trim(CStr(ind))
                Range(splage).Select
                ActiveSheet.Paste
            End If

Each part of this code run correctly until the instruction ActiveSheet.Paste.
It can take 15 min to execute this simple line.
I have tested on Windows 11/Excel 2019 PC and on Windows 10/Excel 2016 PC. the result is similar.
I don't understand why this problem start now

thank you for any help

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy and paste function for Command Button	Will267	Word VBA	1	05-12-2021 02:31 PM
Replicate the copy/paste function, without involving the clipboard	alex100	Word VBA	8	11-09-2020 08:19 AM
Problem with Value function	misokol	Excel	3	01-11-2017 08:59 AM
Problem with function	PRA007	Word VBA	2	01-13-2016 01:11 AM
New mail - Paste function	craigfer	Outlook	0	05-27-2015 08:32 AM