Option Explicit
Public Sub UseSheet()
Dim sh As Worksheet
Set sh = SheetFormCodeName("CodeName", ThisWorkbook)
Debug.Print sh.Name '**** plante ici
End Sub
Public Function SheetFormCodeName(Name As String, bk As Workbook) As Worksheet
Dim sh As Worksheet
For Each sh In bk.Worksheets
If sh.CodeName = Name Then
Set SheetFormCodeName = sh
Exit For
End If
Next sh
End Function