modifier ligne aprés filtre listbox

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To 4
ref1 = ref1 & Me.ListBox1.List(ListBox1.ListIndex, i) 'je concatène les valeurs de la ligne pour retrouver la ligne dans le feuillet
Next
Me.ListBox1.RemoveItem ListBox1.ListIndex 'j'enlève la ligne dans la listbox
With Sheets("Feuil1")
    For j = 2 To .[A65000].End(xlUp).Row
        If .Cells(j, 5) = "X" Then 'si la cellule de la colonne E ="X"
            For x = 1 To 5
                ref2 = ref2 & .Cells(j, x) 'je concatène les valeurs des 5 colonnes
            Next
            If ref1 = ref2 Then .Cells(j, 5).ClearContents: Exit Sub 'si la concaténation de la ligne de listbox = celle de la ligne du fichier alors effacer X
            ref2 = "" 'avant le tour de boucle je vide la variable ref2
        End If
    Next
End With
End Sub