Sub Enregistrer_double()
ThisWorkbook.SaveCopyAs "C:\Users\Alison\Desktop\Alison 10\Recettes\Sauvegardes\Recettessauvegarde.xlsm" 'indique le chemin de sauvegarde 1 du fichier
ThisWorkbook.SaveCopyAs "C:\Users\Alison\Dropbox\Recettes\Recettes.xlsm" 'indique le chemin de sauvegarde 2 du fichier recopier la ligne de dessus en indiquant le nouveau chemin
ThisWorkbook.Save
End Sub