Sub tri()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
[A:A].EntireColumn.Insert
[B:B].Copy Destination:=[A1]
For i = 2 To DerLig
If Not LCase(Cells(i, 1)) Like "*zte*" Then Cells(i, 1) = "Z" & Cells(i, 1)
Next i
Range("A2:B" & DerLig).Sort Key1:=[A2], Order1:=xlAscending, Header:=xlGuess
[A:A].EntireColumn.Delete
Application.ScreenUpdating = True
End Sub
Non, c'est l'inverse sinon ça ne fonctionnerait pas...judicieux de donner la valeur Z aux cellule contenant "ZTE"