Bonjour à Tous,
J'ai une erreur qui n’apparaît pas sur mon poste de travail (WIN7) mais sur celui d'un collègue sous WIN10 aléatoirement que je n'arrive pas à reproduire chez moi et à corriger, voici la macro :
Sub INSERT_LIGNES()
Workbooks("FORMULAIREMICROS.xlsm").Worksheets("FORMULAIRE").Activate
If Range("B16") = "" Then
MsgBox "ATTENTION !" & Chr(10) & Chr(10) & "Veuillez entrer un code article /ou matricule avant d'ajouter une nouvelle ligne"
Else
ActiveSheet.Unprotect Password:="SIMPHONY"
Dim Lg%, Rep
Lg = Range("B65536").End(xlUp).Row
Rep = "1"
Rows(Lg).Copy
Range(Rows(Lg + 1), Rows(Lg + Rep)).Insert
Application.CutCopyMode = False
Range(Rows(Lg + 1), Rows(Lg + Rep)).SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveSheet.Protect Password:="SIMPHONY", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub
Lors de l'exécution, le message d'erreur cité en objet apparaît mais je n'ai pas de piste pour résoudre ce problème.
En vous remerciant pour votre aide.