Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B2:G22")) Is Nothing Then ' à adapter la plage B2:G22
Application.ScreenUpdating = False
ActiveSheet.Shapes("ZoneTexte 1").Select
Selection.Characters.Text = Target.Value
Range("XFD1") = Target.Address
col = Target.Column
lig = Target.Row
End If
Cancel = True
Application.ScreenUpdating = True
End Sub