Sub Nomfeuilles()
Dim N%, Sh
Range("Z2:Z37").ClearContents
N = 2
For Each Sh In Worksheets
If LCase(Sh.Name) <> "liste" Then
Cells(N, "Z") = Sh.Name
N = N + 1
End If
Next Sh
End Sub
=SIERREUR(STXT(INDEX(Liste;COLONNE()-4);TROUVE("]";INDEX(Liste;COLONNE()-4))+1;31);"")
=SIERREUR(NB.SI(INDIRECT("'"&F$1&"'!$A:$A");$A2);"")
Salut,Installez Morefunc. Ce sera plus simple.
Question : Pourquoi ne pas l'avoir installé, ou tout du moins essayé ?
Sinon pour être universel il faut que la liste se trouve en colonne A. Comme ça l'insertion des colonnes ne pose plus de problème.