J'ai adapté l'fichier pcq à la base y a bcp plus de noms que ca mais il etait trop gros pour pouvoir etre mis en fichier joint sur l'forum. Juste une question, j'voudrais que le fichier s'ouvre sur la feuille "Total" plutot que sur l'acceuile. j'ai déja regler ce qu'il fallait niveau mot de passe mais j'voudrais savoir ce que je dois changer au code suivant pour que ca ce fasse
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub