=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