Sub Nb_Feuille()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "b34" And Feuille.Name <> "TCD" Then
With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With
End If
Next Feuille
End Sub