Extraire des données textes et les transformers

 Option Explicit
Const Lig_0 As Byte = 2 'A adapter au contexte
Const Col As String = "A" 'A adapter au contexte
'---------
Sub positionner_xy()
Dim Derlig As Byte
Dim Lettres As String, Cellule As Range, Lig As Byte, Lig_f As Byte
Dim Separ, Alpha As Byte, Xxx As String, Yyy As String
Dim test

Application.ScreenUpdating = False
Sheets(2).Columns(Col).Clear
Derlig = Sheets(1).Cells(Lig_0, Col).End(xlDown).Row
Lig_f = Lig_0

For Lig = Lig_0 To Derlig
    Set Cellule = Sheets(1).Cells(Lig, Col)
    If Cellule Like "*X*" And Cellule Like "*Y*" Then
        ' lettres de départ
        Alpha = Alpha + 1
        Lettres = car_col(Alpha)
        'recherche coordonnées
        Separ = Split(Cellule)
        Xxx = Right(Separ(1), Len(Separ(1)) - 1)
        Yyy = Right(Separ(2), Len(Separ(2)) - 1)
        'concaténation et restitution
         Sheets(2).Cells(Lig_f, Col) = Lettres & "= (" & Xxx & ", " & Yyy & ")"
        Lig_f = Lig_f + 1
    End If
Next
Sheets(2).Activate
End Sub
'------------
Function car_col(num As Byte) As String
Dim serie As Byte
Select Case num
    Case Is = 0
        car_col = "#########"
    Case Is < 27
        car_col = Chr(64 + num)
    Case Else
        serie = Int((num - 26) / 27) + 1
        car_col = Chr(64 + serie) & Chr(64 + num - 26 * serie)
End Select
End Function