Sub les_noms()
'effacement de la zone recevant les noms
Sheets("recapitulatif annuel").Range("B3:B25").ClearContents
'ligne de debut d'ecriture
ligne = 3
'noms de feuille a exclure de la liste
aexclure = "michel,dupont"
'balayage de toutes les feuilles
For n = 1 To Sheets.Count
'si le nom de la feuille n'est pas recapi... et n'appartient
'pas a la liste a exclure
If Sheets(n).Name <> "recapitulatif annuel" And InStr(aexclure, Sheets(n).Name) = 0 Then
'ecrire dans la zone prévue
Sheets("recapitulatif annuel").Cells(ligne, 2) = Sheets(n).Name
ligne = ligne + 1
End If
Next n
'tri alpha des noms afin de toujours les retrouver a la même place si les feuilles changent de place
Range("B3:B" & Range("B65536").End(xlUp).Row).Sort Key1:=Range("B3"), Order1:=xlAscending
End Sub