Fonction testant l’existence d’une feuille dans un classeur

Voici une fonction qui renvoie True ou False si la feuille dont le nom est passé en argument existe ou pas et que j’ai nommé IsSheetExist

La procédure

Function IsSheetExist(Name As String) As Boolean
  ' Cette fonction renvoie TRUE si la feuille existe et FALSE dans le cas contraire
  ' Argument
  ' Name (String) - Nom de la feuille dont on teste l'existence
  On Error Resume Next
  IsSheetExist = Len(Sheets(Name).Name) > 0
  On Error GoTo 0
End Function

Exemple de son utilisation

Sub TestIsSheetExist()
 MsgBox IsSheetExist("DB")
End Sub