Pour aider a comprendre voici ma macro mais j'aimerai faire mieux:
Sub Add_Sheet()
'
' Add_Sheet Macro
'
'
Application.ScreenUpdating = False
debut_tableau_listing_of_part = 3
fin_tableau_listing_of_part = 39
For Cursor = debut_tableau_listing_of_part To fin_tableau_listing_of_part
If (Sheets("EXPLODED VIEW").Cells(3, 19).Value <> "-") Then
Sheets("0").Visible = True
Sheets("0").Copy After:=Sheets(6)
ActiveSheet.Name = Sheets("EXPLODED VIEW").Cells(3, 19).Value
Sheets("RC").Visible = True
Sheets("RC").Copy After:=Sheets(7)
ActiveSheet.Name = "RC_" + Sheets("EXPLODED VIEW").Cells(3, 19).Value
End If
Next
Sheets("EXPLODED VIEW").Select
Sheets("0").Visible = False
Sheets("RC").Visible = False
Application.ScreenUpdating = True
End Sub