[Hervé]

Bonjour baboune

La seule combine que j'ai trouvé c'est de reboucler sur chaque item avant pour les remettres en noir.

j'ai ajouté un repaint, car bizarrement chez moi les changements de couleurs ne se faisaient pas sans.

PrivateSub ListView1_Click()
Dim wItem As ListItem
Dim C As Byte
Dim i As Byte
With ListView1
        For i = 1 To .ListItems.Count
                For C = 1 To .ColumnHeaders.Count
                        .ListItems(i).ForeColor = RGB(1, 0, 0)
                        .ListItems(i).ListSubItems(C).ForeColor = RGB(1, 0, 0)
                Next C
        Next i
        Set wItem = .SelectedItem
        wItem.ForeColor = RGB(0, 0, 255)
        For C = 1 To .ColumnHeaders.Count
                wItem.ListSubItems(C).ForeColor = RGB(0, 0, 255)
        Next C
End With
Me.Repaint
End Sub

salut