Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim tmp, chrc As Variant
Dim Nextr, Nextr1 As String
Dim Cmpt As Boolean
Dim plage As Range
'j'utilise ceci afin de retrouver la valeur de ma cellule et son commentaire
If Len(ListBox1.Value) > 10 Then
tmp = Split(ListBox1.Value, " ")
Nextr = Mid(tmp(0), 1)
Nextr1 = Mid(tmp(1), 1) + " " + Mid(tmp(2), 1)
'ici je fais la recherche de ma cellule
Range("A:A").Select
Set chrc = Selection.Find(What:=Nextr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)