Bonjour le forum
Si cela intéresse quelqu'un, Djé a reçu sa réponse sur MPFE :
Sub Tri_Intercale()
x = [A65536].End(3).Row
Range("A1:A" & x).Sort Key1:=[A1], Order1:=xlAscending
For i = x To 1 Step -1
On Error GoTo suite
If Left(Cells(i, 1), 4) <> Left(Cells(i - 1, 1), 4) Then
Cells(i, 1).Insert Shift:=xlDown
End If
suite:
Next
End Sub
@+