Que la question s'adresse à 78chris ou à moi, la difficulté sera sur le nombre de visite par mois (165 000/mo), car cette données est du texte. le tri s'effectuera de manière alphabétique.
Ainsi 2 sera supérieur à 10
En supprimant /mo, on retrouve du numérique permettant un tri croissant ou décroissant "normal"
Sub Robich()
Dim T, W1 As Worksheet, W2 As Worksheet, Pos As Integer, i As Long, j As Byte
Set W1 = Worksheets("exemple") ' à adapter
Set W2 = Worksheets("résultat souhaité") ' à adapter
T = W1.Range("A1:A" & W1.Range("A" & Rows.Count).End(xlUp).Row)
ReDim Preserve T(1 To UBound(T, 1), 1 To 4)
For i = LBound(T, 1) To UBound(T, 1)
Pos = InStr(T(i, 1), "[")
For j = 2 To 4
T(i, j) = Split(Mid(T(i, 1), Pos + 1, Len(T(i, 1)) - Pos - 1), "-")(j - 2)
Next
T(i, 2) = Left(T(i, 2), Len(T(i, 2)) - 4)
T(i, 1) = Left(T(i, 1), Pos - 2)
Next
W2.Range("A2").Resize(UBound(T, 1), 4) = T
End Sub