XL 2016 Sub Worksheet_SelectionChange

Re bonjour c'est encore moi

le code est très bien mais je voudrais l'avoir sur un double click

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c5:nc19")) Is Nothing Then
If ActiveCell.Value <> "" Then
With ActiveCell
UserForm2.TextBox5 = Cells(Target.Row, "B").Value
UserForm2.Show
End With
End If
End If
End Sub

des idées ?