Bonjour,
J'ai ce code pour supprimé toutes les lignes de code lorsque j'exporte mes feuilles, actuellement il m'exporte bien les feuilles mais ne supprime que les codes de la feuille "manufacturing", quel est le code qui manque pour qu'il me le fasse sur toutes les feuilles ?
Private Sub CommandButton1_Click()
Sheets(Array("Manufacturing", "Distribution", "Installation", "Use", "End of life")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="Cycle_de_vie.xls", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub