Sub Tri()
Dim mot As String
mot = Application.Trim(InputBox("Entrez le mot :", "Mot"))
If mot = "" Then Exit Sub
[A:A].Copy [C1] 'facultatif et à adapter
[C:C].Replace mot, "0" & mot, xlPart
[C:C].Sort [C1], xlAscending, Header:=xlNo
Range("C" & Application.CountIf([C:C], "0" & mot & "*") + 1 & _
":C" & Rows.Count).Delete xlUp
[C:C].Replace "0" & mot, mot
End Sub