Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
For i = 2 To UBound(tablo)
tablo(i, 2) = "" '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, 2) = IIf(y Like "##-##-####:##:RendezVouspourle*", "RdV", "n/c")
Exit For
End If
End If
Next
If tablo(i, 2) = "" Then If InStr(x, "Répondeur") Then tablo(i, 2) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
Next
'---restitution---
.Columns(4).Resize(, 2) = tablo
.Sort .Columns(5), xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
.Rows.AutoFit
End With
End Sub