Public Sub SaveTousClasseursOpen()
Application.DisplayAlerts = False
For C = 1 To Workbooks.Count
N$ = Workbooks(C).Name
NomDuClasseurSVG$ = "C:\Users\Alex\Desktop\Nouveau dossier\" & Sheets(1).Name
Workbooks(N$).SaveAs Filename:=NomDuClasseurSVG$
Next
Application.DisplayAlerts = True
End Sub