Sub Test()
fo = Array(Array(1, 1), Array(2, 9))
'============> ne sert qu'à créer les données pour le test
a = Array("TEXT", "11256_1", "25663_2", "56666", "66226_2", "52626", "26526_1")
Range("A1:A7") = Application.Transpose(a)
'============> fin création données
'copie avec filtre avancé
Range("D2").FormulaR1C1 = "=RIGHT(RC[-3])=""2"""
Range("A1:A7").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("D1:D2"), CopyToRange:=Range("F1"), Unique:=False
'données/convertir
Range("F2:F5").TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, Other:=True, OtherChar:="_", FieldInfo:=fo
End Sub