Private Sub CmdCreerFeuilles_Click()
Sheets("Model").Visible = xlSheetVisible
Dim cell As Range, Nom As Range, Sht As String
For Each Nom In Range([E5], [E65536].End(xlUp))
If Nom.Value <> "" Then
On Error Resume Next
Sht = Sheets(Nom.Value).Name
If Err.Number <> 0 Then Sht = ""
On Error GoTo 0
If Sht = "" Then
Sheets("model").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom.Value
Sheets("PARTS SUMMARY").Activate
Nom.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Nom.Value & "'!A1"
End If
End If
Next
Sheets("Model").Visible = xlSheetVeryHidden
End Sub