Re : lier une textbox à une plage de cellules
Si j'ai bien compris il suffisait de supprimer ces 3 parties du code.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim P As Range, o As OLEObject, x$, nom$
Set P = [F2:I6,H7:I9,F10:I11]...