bonjour,
je vois que tu as changé la colonne dans laquelle se trouve le texte.
Sub aargh()
col = "F"
Columns(col).Replace "<polygon id=", "<path id=", xlPart
Columns(col).Replace "points=""", "D=""M", xlPart
For i = 1 To Cells(Rows.Count, col).End(xlUp).Row
t = Cells(i, col)
texte = t
If texte <> "" Then
texte = Split(texte, """")(1)
texte = Split(texte, "_")
texte = texte(UBound(texte))
If EstMajuscule(texte) Then Cells(i, 1) = texte
End If
texte = t
If texte <> "" Then
s = InStr(texte, "_x37_1")
If s > 0 Then
s1 = InStr(s + 6, texte, "_")
texte = Left(t, s - 1) & Mid(texte, s1 + 1)
Cells(i, col) = texte
End If
End If
Cells(i, col).Replace "<path id=", "<path id=""" & Format(Cells(i, "C"), "#00") & """ title="
Next i
End Sub
Function EstMajuscule(tx)
t = tx
For i = 1 To Len(t)
ch = Mid(t, i, 1)
If (ch < "A" Or ch > "Z") And ch <> "-" And ch <> "'" Then EstMajuscule = False: Exit Function
Next i
EstMajuscule = True
End Function