Private Sub TrierSource(poSh As Worksheet)
Dim iLigFin As Integer
iLigFin = poSh.Range("A" & Rows.Count).End(xlUp).Row
poSh.Sort.SortFields.Clear
poSh.Sort.SortFields.Add Key:=Range( _
"A7:A" & iLigFin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With poSh.Sort
.SetRange Range("A7:I" & iLigFin)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub