Public Sub souligner()
Dim Lyon As String, Villeurbanne As String, LigneLyon As Long, LigneVilleurbanne As Long
For i = 1 To 200
If Cells(i, 4).Value Like ("*Lyon*") = True Then
Cells(i, 4).Font.Underline = xlUnderlineStyleSingle
ElseIf Cells(i, 4).Value Like ("*Villeurbanne*") = True Then
Cells(i, 4).Font.Underline = xlUnderlineStyleSingle
End If
Next i
End Sub