Bonsoir Mauco,
Je te propose le code suivant :
Sub ExitExcel_QuandClic()
Dim Wb As Object
For Each Wb In Workbooks
If Left(Wb.Name, 1) <> 'T' And Wb.Name <> ThisWorkbook.Name Then
Wb.Save
Wb.Close
End If
Next Wb
For Each Wb In Application.Workbooks
If Left(Wb.Name, 1) = 'T' And Wb.Name <> ThisWorkbook.Name Then
On Error Resume Next
Wb.Saved = True
Wb.Close
End If
Next Wb
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
Cordialement
Bernard