XL 2010 Executer code si onglet introuvable

Sub Macro1()
  
   'nom de la feuille à créer si besoin  
    strNomFeuille = "Test"
'test de son existance
    FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1"))
   
' si elle n'existe pas. il faut la créer. c'est comme pantashop.. :-) 
    If (FeuilleInexistante = True) Then
        Sheets.Add
        ActiveSheet.Name = strNomFeuille    
    End If
End Sub

     FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1"))

Private Sub CommandButton1_Click()
Dim robot As Integer
Dim semaine As String
Dim jour As String

robot = ActiveSheet.Range("AV1").Value
semaine = ActiveSheet.Range("BK1").Value
jour = ActiveSheet.Range("CK1").Value

Workbooks.Open "chemin" & robot & " fichier"
'nom de la feuille à créer si besoin
  'strnomfeuille = semaine
'test de son existance
  FeuilleInexistante = IsError(Evaluate("='" & semaine & "'!A1"))

' si elle n'existe pas. il faut la créer.
  If (FeuilleInexistante = True) Then
  'Call CreerFeuille_Clic
  MsgBox ("Feuille Inexistante")
  ElseIf (FeuilleInexistante = False) Then
  Worksheets(semaine).Select

  End If
End Sub

Private Sub CommandButton1_Click()
Dim robot As Integer
Dim semaine As String
Dim jour As String
robot = ActiveSheet.Range("AV1").Value
semaine = ActiveSheet.Range("BK1").Value
jour = ActiveSheet.Range("CK1").Value
NomFichier = "chemin" & robot & " fichier"
Workbooks.Open NomFichier
  If Not FeuilleExiste(semaine, NomFichier) Then
    Call CreerFeuille_Clic
    MsgBox ("Feuille Inexistante")
  Else
     Workbooks(NomFichier).Worksheets(semaine).Select
  End If
End Sub

Function FeuilleExiste(NomFeuille, NomFichier)
On Error Resume Next
Set F = Workbooks(NomFichier).Sheets(NomFeuille)
   If Err.Number = 0 Then
     FeuilleExiste = True
   Else
      FeuilleExiste = False
   End If
On Error GoTo 0
End Function

Private Sub CommandButton1_Click()
Dim robot As Integer
Dim semaine As String
Dim jour As String
robot = ActiveSheet.Range("AV1").Value
semaine = ActiveSheet.Range("BK1").Value
jour = ActiveSheet.Range("CK1").Value
NomFichier = "\\aerolia.corp\import\ME\PROJETS\Lean.Chantiers_Et_Projets\Manufacturing_ME\00-dossiers stagiaires\Apprenti Lean Assemblage - Clément MARGAT - Oct 2015 - Oct 2016\TRG\Essai Automatisation\TRG Erebus " & robot & " T11 SA.xlsm"
Workbooks.Open NomFichier
   If Not FeuilleExiste(semaine, NomFichier) Then
     'Call CreerFeuille_Clic
     MsgBox ("Feuille Inexistante")
   Else
      Workbooks(NomFichier).Worksheets(semaine).Select
   End If
End Sub

Function FeuilleExiste(NomFeuille, NomFichier)
 On Error Resume Next
 Set F = Workbooks(NomFichier).Sheets(NomFeuille)
  If Err.Number = 0 Then
  FeuilleExiste = True
  Else
  FeuilleExiste = False
  End If
 On Error GoTo 0
 End Function