Bonsoir,
voici un début de réponse, à tester.
je n'ai complété, sur février, que les débuts de lignes et 2 lignes, pour vérif
Bonne suite
Cordialement
axion
EDIT :
voici aussi un bout de code donné par Mytâ pour lister les feuilles sur la Feuil!2
Sub Nom_Feuilles()
Dim I As Byte
For I = 1 To ThisWorkbook.Sheets.Count
Cells(I, 1) = ThisWorkbook.Sheets(I).Name
Next I
End Sub
à adapter, pour une fonction de recherche plus élégante