Private Sub CmdSup_Click()
Dim Dt As String, cel As Range, i As Integer
'MsgBox "Vous allez supprimer l'enregistrement.", , "MIMI"
For i = 1 To ListView1.ListItems.Count
Dt = ListView1.ListItems(i).ListSubItems(3).Text
ListView1.ListItems(i).Selected = True
With Sheets("Feuil1").Range("a3:g53")
Set cel = .Find(Dt, , xlValues, xlWhole)
If Not cel Is Nothing Then
If cel.Offset(0, 3).Value = Dt Then cel.Offset(0, 3).Interior.Color = vbRed
End If
End With
Next
'ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub