DOUBLE CLIQUE :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I6:I2000")) Is Nothing Then Userform1.Afficher Target
End Sub
USERFORM:
Public Sub Afficher(ByVal Cible As Range)
Me.Show
Cible.Value = Userform1.TextBox1
Unload Me
End Sub
Private Sub Bt_AJD_Click()
Me.Hide
End Sub