Function FeuilleParNomDeCode(ByVal NomDeCode As String, Optional ByVal NomClasseur As String = "") As Worksheet
Dim wk As Workbook, wsh As Worksheet
On Error GoTo FIN
' obtention du classeur
If NomClasseur = "" Then
Set wk = ThisWorkbook
Else
Set wk = Workbooks(NomClasseur)
End If
' Parcours des feuille du classeur
If Not wk Is Nothing Then
For Each wsh In wk.Worksheets
' UCASE pour toujours être insensible à la casse
If UCase(wsh.CodeName) = UCase(NomDeCode) Then Exit For
Next
End If
FIN:
On Error GoTo 0
' Renvoie de l'objet feuille ou nothing
Set FeuilleParNomDeCode = wsh
End Function