Si donné existe

Bonjour,

J'ai un code qui marche bien pour relever des données d'un autre classeur xlsm fermé.

Ma question est comment incorporer dans la formule ci-dessous une erreur Si ficheJour (nom de ma variable feuille)

existe pas alors

Sub releverK1()
Dim Chemin As String, fichier As String
Dim strJour As String, strMois As String, equipe As String
Dim intJour As Integer, intMois As Integer, intAnnee As Integer
Dim varFeuilles As Variant
Chemin = Sheets("config").Range("N6")
intJour = Sheets("calage").Range("A1")
strJour = Format(intJour, "00")
intMois = Sheets("calage").Range("B1")
strMois = Format(intMois, "00")
intAnnee = Sheets("calage").Range("C1")
equipe = Sheets("calage").Range("A3")
ficheJour = strJour & "." & strMois & "." & intAnnee & "_" & equipe
fichier = "Komori_janvier_2016.xlsm"
On Error Resume Next 'les erreurs deviennent non bloquantes
    ThisWorkbook.Names.Add "calagek1", _
    RefersTo:="='" & Chemin & "[" & fichier & "]" & ficheJour & "'!$G$5:$H$6"

    With Sheets("vierge")
        .[G5:H6] = "=calagek1"
        .[G5:H6].Copy
        Sheets("config").Range("D3:E4").PasteSpecial xlPasteValues
        .[G5:H6].Clear
    End With

'gestion de lexception
Select Case Err.Number
       Case 1
'traitement
       Case 1004
'traitement
       Case Else
'dans tout autre cas
End Select

On Error GoTo 0 'les erreurs sont de nouveau bloquantes

End Sub

Car actullement si la feuille existe pas j'ai une fennetre avec un message windows ou excel je c'est pas "sélectionné une feuille" avec la liste des feuilles du classeur