Re : planning brute vers planning structuré
J'ai fait ca très vite 😀
'Séléction de la base de donnée
Sheets("Feuil1").Rows("1:1").Select
'Mise en place du filtre
Selection.AutoFilter
'Choix du premier chauffeur
Selection.AutoFilter Field:=1, Criteria1:="toto 1"
'Ajout d'un onglet qui sera dans ton exemple Feuil2
Sheets.Add
'Copier les lignes de toto1
Sheets("Feuil1").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Coller le tout dans Feuil2
Sheets("Feuil2").Select
ActiveSheet.Paste
Columns("A:M").Select
Application.CutCopyMode = False
'Appliquer le tri date/heure
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("K2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
'Changement du nom de l'onglet par le nom du chauffeur
Sheets("Feuil2").Name = Sheets("Feuil2").Cells(2, 1)