bonjour,
je n'ai pas vérifié, mais comme indiqué plus haut le " ° " ne semble pas autorisé dans les en-têtes de tableaux et provoque semble-t-il un plantage. J'ai donc remplacé le nom du champ dans toutes les feuilles par NDI et ça passe mieux.
En revanche ça plante sur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'...
CriteriaRange:=Sh.Range("A1").CurrentRegion, CopyToRange:=Sh.Range("A13"), Unique:=False
'...
End Sub
a corriger comme indiqué.
Il semble que désormais tout passe ?
A+