Réponse acceptée !
A chaque fois que j'ai dû tester l'existence d'un élément dans une collection, j'ai fait une fonction à part. Ce qui donne :
Public Sub gsub_Test()
If Not fct_ExisteFeuille("Feuil12") Then
Debug.Print "pas de feuille"
End If
End Sub
Public Function fct_ExisteFeuille(a_Feuille As String) As Boolean
On Error GoTo NoSheet
'Si la feuille n'existe pas => Gestion d'erreur
If Not Worksheets(a_Feuille) Is Nothing Then
fct_ExisteFeuille = True
End If
Exit Function
NoSheet:
fct_ExisteFeuille = False
End Function