Sub SelectionTest()
Dim Y As Integer
With ActiveSheet
Y = Range("A65536").End(xlUp).Row
End With
Dim Z As Long
Dim X As Long
For Z = 1 To Y
If Range("A" & Z) = "En-tête1" Then _
Range("A" & (Z + 2) & ":R" & X).Select
X = Range("A" & Z).End(xlDown).Row
ActiveWorkbook.Worksheets("Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet").Sort.SortFields.Add Key:=Range("F" & (Z + 2) & ":F" & X) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet").Sort
.SetRange Range("A" & (Z + 2) & ":R" & X)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next Z
End Sub