formule si

=SI(ESTNUM(CHERCHE("~*";D13));"jouer le "&SUBSTITUE(D13;"*";"")&" placé";"")

=SI(ESTNUM(CHERCHE("~*";A2));"jouer le "& SUBSTITUE(A2;"*";"")&" en placé";"")

Function Placé(Cell As Range) As String
Dim Vall As Integer
If Cell.Count > 1 Then Exit Function
    i = InStr(Cell, "*")
    If i <> 0 Then
        Placé = Left$(Cell, InStr(Cell, "*") - 1)
        Do While Asc(Right$(Placé, 1)) > 47 And Asc(Right$(Placé, 1)) < 58
            Placé = Left$(Placé, Len(Placé) - 1)
        Loop
        Vall = Len(Left$(Cell, InStr(Cell, "*"))) - Len(Placé)
        Placé = "Numéro " & Right$(Left$(Cell, InStr(Cell, "*")), Vall) & " placé."
    Else
        Placé = "Pas de numéro placé en " & Cell.Address & "."
    End If
End Function