Function EstTriée(Target As Range, Optional SortOrder As XlSortOrder = xlAscending, Optional HasHeader As Boolean = True) As Boolean
'Auteur: hasco Voir le profil: Hasco - Excel Downloads Forums
Dim t As Variant
Dim depart As Long, arrivee As Long, i As Long
Dim pas As Integer, increment As Integer
If Target.Columns.Count > 1 Then Set Target = Target.Columns(1)
If HasHeader Then Set Target = Target.Offset(1).Resize(Target.Rows.Count - 1)
t = Target.Value
EstTriée = True
If SortOrder = xlAscending Then
depart = LBound(t)
arrivee = UBound(t) - 1
pas = 1
Else
depart = UBound(t)
arrivee = LBound(t) + 1
pas = -1
End If
EstTriée = True
For i = depart To arrivee Step pas
If t(i, 1) > t(i + pas, 1) Then
EstTriée = False
Exit For
End If
Next
End Function