Code VBA ne fonctionne plus sur Excel 2013

Bonsoir

il m'arrive une petite galère pour ne pas dire un truc étrange.

j'ai créé il y a quelques années un fichier sous 2010. Je viens de passer l'ordi sous 2013 et à ma grande surprise ce code ne fonctionne plus...

le plus étrange c'est qu'il fonctionne sous d'autres ordinateurs en 2013... J'ai donc désinstallé et réinstallé office... en vain...

le code est le suivant :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("jjj")) Is Nothing Then

Dim Lg%

Lg = Range("jjj").Row

Application.EnableEvents = False

Rows(Lg).Copy

Rows(Lg).Insert

Range("jjj").ClearContents

Application.CutCopyMode = False

Application.EnableEvents = True

End If

End Sub

le débogage me dit que ça plante au niveau de Rows(Lg).Insert.

avez-vous une piste à me donner ?

merci d'avance

Bonjour dam0920,

le nom "jjj" fait référence à quoi ?

Rechercher des sujets similaires à "code vba fonctionne 2013"