Bonjour,
Je suppose que ça peut être utile si ça change...
Une fonction personnalisée (en argument le numéro d'ordre de la feuille parmi les feuilles mois).
Function OT(n As Integer) As String
Dim i%, nfm
Application.Volatile
For i = 1 To Worksheets.Count
If IsDate("1-" & Worksheets(i).Name) Then
nfm = nfm & ";" & Worksheets(i).Name
End If
Next i
If nfm <> "" Then
nfm = Split(nfm, ";")
If n <= UBound(nfm) Then
OT = "OT " & nfm(n)
Exit Function
End If
End If
OT = ""
End Function
Cordialement.