Private Sub Workbook_Open()
With Sheets("sommaire")
If .Range("F13") <> "" And .Range("F14") <> "" Then Exit Sub
End If
sauver = MsgBox("Voulez activer la sauvegarde automatique pour ce classeur ?", vbYesNo)
If sauver = vbNo Then
Exit Sub
Else
SauvegardeAuto = True
GetDirectory
ChoixDelai
ChoixNbSauvegardes
Sauve
End If
End Sub