indentifier des mots soulignés dans une liste

Function MotsSoulignés(Cellule As Range) As Integer
Dim I As Integer, Mot As Boolean
For I = 1 To Len(Cellule)
    If Mid(Cellule, I, 1) = " " Or Mid(Cellule, I, 1) = Chr(10) Then
        Mot = False
        Souligné = False
    Else
        If Cellule.Characters(Start:=I, Length:=1).Font.Underline = xlUnderlineStyleSingle And Mot = False Then
            Mot = True
            MotsSoulignés = MotsSoulignés + 1
        End If
    End If
Next I
End Function