If c1 = 0 Then
Worksheets("type").Visible = True
Worksheets("type").Copy after:=Worksheets("Feuil1")
Worksheets("type (2)").Name = Worksheets("Feuil1").Range("G" & 4 + i)
Worksheets("type").Visible = xlVeryHidden
Else