Sub aa()
With Sheets("Feuil3")
.Range("a3:t" & .Cells.Find("*", , , , , xlPrevious).Row).Sort _
Key1:=.Range("a3"), Order1:=xlAscending, Header:=xlGuess
.Range("k3:k" & .Cells(Rows.Count, "k").End(xlUp).Row).Name = "Service_réalisé"
.Range("n3:n" & .Cells(Rows.Count, "n").End(xlUp).Row).Name = "heures_réalisé"
.Range("s3:s" & .Cells(Rows.Count, "s").End(xlUp).Row).Name = "semaine_réalisé"
.Range("q3:q" & .Cells(Rows.Count, "q").End(xlUp).Row).Name = "Choix_Année_Réalisée"
.Range("p3:p" & .Cells(Rows.Count, "Q").End(xlUp).Row).Name = "Formateur_réalisé"
End With
With Sheets("Feuil5")
.Range("a3:t" & .Cells.Find("*", , , , , xlPrevious).Row).Sort _
Key1:=.Range("l3"), Order1:=xlAscending, Header:=xlGuess
.Range("k3:k" & .Cells(Rows.Count, "k").End(xlUp).Row).Name = "Service_prévision"
.Range("n3:n" & .Cells(Rows.Count, "n").End(xlUp).Row).Name = "heures_prévision"
.Range("s3:s" & .Cells(Rows.Count, "s").End(xlUp).Row).Name = "semaine_prévision"
.Range("q3:q" & .Cells(Rows.Count, "q").End(xlUp).Row).Name = "Choix_Année_Prévision"
End With
End Sub