وعليكم السلام ورحمه الله وبركاته
جرب هذا التعديل اخى الكريم
Sub Copie_sh()
Application.EnableEvents = False
Sheets("ENTP-SH").Range("E13:AI72").Value = Sheets("ENTP.EL AMINE G").Range("E13:AI72").Value
Sheets("ENTP-SH").Range("E101:AI164").Value = Sheets("ENTP.EL AMINE G").Range("E101:AI164").Value
Application.EnableEvents = True
End Sub