Coucou !
Impossible de trouver un code pour ce que je voulais faire.
J'ai donc décidé de copier la feuille entière dans un nouveau classeur, en enlevant la protection. J'ai bien galéré mais j'ai enfin réussi ! Pour info, si ça interesse qqun voilà mon code final :
Code :
Dim objWorkbookCible As Workbook
Dim objworkbooksource As Workbook
Set objworkbooksource = ActiveWorkbook
ActiveWorkbook.ActiveSheet.Unprotect ("admin")
Worksheets("Comp_Projets").Copy
Set objWorkbookCible = ActiveWorkbook
objworkbooksource.ActiveSheet.Protect ("admin")
Pb résolu