Sub MacroSauvegarde()
On Error GoTo gestionerreur
ChDir "F:\"
ActiveWorkbook.SaveAs Filename:="F:\bougie_2009.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
gestionerreur:
If MsgBox("Clé USB non trouvée, veuillez l'insérer. Voulez-vous continuer?", vbYesNo) = vbYes Then
Call MacroSauvegarde
Else
Exit Sub
End If
End Sub