Sub Bouton2_Cliquer()
Application.ScreenUpdating = False
Dim Reponse As Integer, X$, Fichier$
Reponse = MsgBox("ATTENTION! VOUS ETES SUR LE POINT DE CRÉER UN NOUVEAU FICHIER VIERGE. Etes vous sûr de vouloir CONTINUER?", _
vbYesNo + vbQuestion, "CREATION D'UN NOUVEAU FICHIER VIERGE")
If Reponse = vbYes Then 'Si oui
Tâche "Création", 6, "actions"
ThisWorkbook.Save: OùÇaEnEst
Sheets("Notes1").Range("C6:V105").ClearContents: OùÇaEnEst
Sheets("Notes2").Range("C6:V105").ClearContents: OùÇaEnEst
Sheets("Notes3").Range("C6:V105").ClearContents: OùÇaEnEst
Sheets("Listes").Range("K7:L26,C7:F106,H7:H106").ClearContents: OùÇaEnEst
X = ActiveWorkbook.FullName
Fichier = Mid(X, 1, InStrRev(X, "\")) & "Copie_" & ActiveWorkbook.Name
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Fichier: OùÇaEnEst
MsgBox "UN NOUVEAU FICHIER VIERGE A ÉTÉ CRÉÉ. Vous devez d'abord le RENOMMER avant de l'UTILISER pour un AUTRE GROUPE.", _
vbInformation, "CONFIRMATION DE LA CREATION DU NOUVEAU FICHIER VIERGE"
ThisWorkbook.Close False
Else 'Si non
MsgBox "CREATION DE FICHIER ANNULEE.", vbInformation, "ANNULATION"
End If
End Sub