Lancer une double clic par macro

bonjour je cherche à lancer une macro qui aurai pour but d'imiter le double clic avec la sourie sur une celule bien donnée

Es ce possible?

Merci

Bonjour,

et pourquoi vouloir "imiter" le double clic ?

Pour faire ça, j'ai réussi

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.ScreenUpdating = False
 If Not Application.Intersect(Target, Range("H11")) Is Nothing Then
 TextBox1.Select
 Application.DoubleClick
 Application.ScreenUpdating = True
 End If
End Sub

Merci