Tri mot spécifique

Bonjour à tous !

Dans mon tableau (pièce jointe), j'ai un vba qui tri par ordre alphabétique (colonne i). Dans cette colonne, certaines cellules contiennent "A.I"

J'ai un code (carré blanc) qui identifie ces lignes avec une msg box.

Comment trier ces lignes contenant A.I pour qu'elles se retrouvent en haut du tableau?

Merci beaucoup de votre aide !

Bonjour

Il faudrait ajouter une colonne avec une formule qui mette 1 pour le les lignes contenant A.I et un autre nombre pour les autres et trier sur les 2 colonnes : celle contenant 1 ou + et la colonne I mais je conseille d'avoir une ligne de titre sinon le tri ne marchera pas correctement...

Bonjour,

Merci beaucoup ! Ajouter une colonne ! Je n'y avais pas pensé. J'y ai placé ce caractère Γ, enregistré une macro avec le tri personnalisé.

Je poste le code... Merci!

Sub TriAI()
'
' TriAI Macro
'

'
ActiveWorkbook.Worksheets("Dramas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dramas").Sort.SortFields.Add2 Key:=Range( _
"K:K"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dramas").Sort
.SetRange Range("A:K")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub