Sub MàJliste() ' MàJ des catégories
Dim wb As Workbook, LigneSuivi As Integer, LigneLivre As Integer
Application.ScreenUpdating = False
Chemin = Workbooks(ActiveWorkbook.Name).Path & "\" ' Chemin fichier courant (suivi alim.)
Set wb = Workbooks.Open(Chemin & "Livre de recettes.xlsm") ' Chemin fichier à adapter si necessaire
Windows("Suivi alimentaire (menus, liste des courses, dépenses).xlsm").Activate
Range("A2:D1000").ClearContents
Set f = Workbooks("Livre de recettes.xlsm")
' Ici un extrait des données à copier, normalement pas de problème pour ces codes
LigneSuivi = 2
LigneLivre = 3
While f.Sheets(2).Range("M" & LigneLivre) <> "" ' Dessert
Cells(LigneSuivi, 3) = f.Sheets(2).Range("M" & LigneLivre)
LigneLivre = LigneLivre + 1
LigneSuivi = LigneSuivi + 1
Wend
Range("C2:C1000").Sort Key1:=Range("C2"), Order1:=xlAscending
Workbooks("Livre de recettes.xlsm").Close
End Sub