Function NomFeuille(Préfixe, Suffixe)
Dim wsh As Worksheet
If Suffixe = "" Or Préfixe = "" Then NomFeuille = "Arguments ?": Exit Function
NomFeuille = "Pas de feuille"
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name Like Préfixe & "*" & Suffixe Then
NomFeuille = wsh.Name
Exit For
End If
Next
End Function