Private Sub ListBox1_Click()
For i = 0 To Ncol - 1
k = ColVisu(i)
Me("TextBox" & i + 2) = Me.ListBox1.Column(i)
Next i
Tablo = Sheets("feuil1").Range("A2:F" & Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(Tablo, 1) To UBound(Tablo, 1)
For i = 0 To Ncol - 1
If Trim(CStr(Tablo(n, i + 1))) = Trim(Me("TextBox" & i + 2)) Then
nb = nb + 1
If nb = Ncol Then
ligne_a_supp = n + 1
'Exit Sub
GoTo Suite
End If
End If
Next
nb = 0
Next
Suite:
If Me.TextBox4.Value = "" And Me.TextBox5.Value <> "" Then Me.TextBox4.Locked = True Else Me.TextBox4.Locked = False
If Me.TextBox5.Value = "" And Me.TextBox4.Value <> "" Then Me.TextBox5.Locked = True Else Me.TextBox5.Locked = False
End Sub