Capture.JPG

Private Sub CondFormat()
    Dim i As Long, i1 As Long
    For i = 1 To ListView1.ListItems.Count
        Select Case Trim(ListView1.ListItems(i).ListSubItems(47).Text)
            Case "cl?tur?"
                For i1 = 1 To ListView1.ListItems(i).ListSubItems.Count
                    ListView1.ListItems(i).ListSubItems(i1).ForeColor = vbRed
                Next i1
            Case "en cours"
                For i1 = 1 To ListView1.ListItems(i).ListSubItems.Count
                    ListView1.ListItems(i).ListSubItems(i1).ForeColor = vbGreen
                Next i1
            Case "a cl?turer"
                For i1 = 1 To ListView1.ListItems(i).ListSubItems.Count
                    ListView1.ListItems(i).ListSubItems(i1).ForeColor = vbBlue
                Next i1
        End Select
    Next i
End Sub
In case some of the characters did not show

Capture1.JPG