Bonjour à tous,
Bonjour peresh,
Pour imprimer les lignes 3 et 4 en haut de chaque page :
Ruban Mise en page, bouton Imprimer les titres, onglet Feuille et dans la case Lignes à répéter en haut : $3:$4 puis valider avec OK
Pour trier la feuille, voici une macro à mettre dans un module standard et à lancer par la méthode de ton choix :
Sub Tri()
Dim dlg As Long
Application.ScreenUpdating = False
dlg = Feuil16.Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("recap matin").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("recap matin").Sort.SortFields.Add Key:=Range( _
"A5:A" & dlg), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("recap matin").Sort
.SetRange Range("A5:U" & dlg)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub
Cordialement.