Xavier

Bonjour,

Je suis occupé à transposer la programmation à mon problème. J'ai déjà réussi à faire un test sur un fichier vide et tout se passe sans aucun probleme ... jusqu'au moment ou j'intercale mes lignes dans mon Userform

Le problème concerne cette ligne

With ThisWorkbook.VBProject.VBComponent_ (ActiveSheet.Name).CodeModule

NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With

Ceci ne m'étonne pas vu qu'on y parle de Workbook... Connaissez vous l'équivalent pour un Userform ?

Merci bcp et bonne journée
Xa