Sub Classer2() 'Appels
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter_Appels")
ActiveSheet.Unprotect Password:=""
With .Range("L6:R" & .Cells.SpecialCells(xlCellTypeLastCell).Row)
If .Row = 6 Then
tablo = .Value 'matrice, plus rapide
For i = 1 To UBound(tablo)
tablo(i, 7) = "" 'RAZ
x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
s = Split(x, vbLf)
For j = 0 To UBound(s)
y = s(j)
If y <> "" Then If Not y Like "##-##-####:##:Répondeur-" Then tablo(i, 7) = "n/c": Exit For
Next j
If tablo(i, 7) = "" Then If InStr(x, "Répondeur") Then tablo(i, 7) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
Next i
'---restitution---
Application.EnableEvents = False 'est-ce bien nécessaire ???
Application.Calculation = xlCalculationManual
.Value = tablo
.EntireRow.Sort .Columns(7), xlDescending, Header:=xlNo 'tri décroissant sur la colonne R
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End With
End With
End Sub