Private Sub MaListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set c = Range("B4:CO151").Find(MaListBox.Column(0))
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If c.Offset(0, 1) = MaListBox.Column(1) And c.Offset(0, 3) = MaListBox.Column(3) And c.Offset(0, 4) = MaListBox.Column(4) And c.Offset(0, 5) = MaListBox.Column(5) And c.Offset(0, 2) = MaListBox.Column(2) Then 'And c.Offset(0, 2) = MaListBox.Column(4) And c.Offset(0, 2) = MaListBox.Column(5)
MsgBox "Cette fiche existe déjà"
Exit Sub
Else
Set c = Range("B4:CO151").FindNext(c)
End If
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
ActiveCell(1, 1) = MaListBox.Column(2)
ActiveCell(1, 2) = MaListBox.Column(3) '(2,1)
ActiveCell(1, 10) = MaListBox.Column(4)
ActiveCell(1, 4) = MaListBox.Column(5)
ActiveCell(1, 5) = MaListBox.Column(7)
ActiveCell(1, 3) = MaListBox.Column(9) '(3,3)
MaListBox.Visible = False
End Sub