Sub test()
Dim cel As Range, c As Range
Application.Goto Sheets("Feuil1").Range("A1")
For Each cel In Sheets("feuil1").UsedRange
If cel.Value = "Résultat plateau" Then
For Each c In Range(Cells(cel.Row + 1, cel.Column), Cells(cel.Row + 10, cel.Column))
If cel.Value = "1er" Then
cel.Characters(Start:=2, Length:=2).Font.Superscript = True
ElseIf Right(cel.Value, 3) = "ème" Then
cel.Characters(Start:=2, Length:=3).Font.Superscript = True
End If
Next c
End If
Next cel
End Sub