listbox et textbox dans cellule

Private Sub CommandButton1_Click()
Saisie.Show vbModeless
End Sub

Dim NOM_SELECTIONNE As String

Private Sub CommandButton1_Click()
Dim R As Range
Dim var
Dim i&
Dim bool
Set R = ActiveSheet.Range("a1:m11")
var = R
var(1, 13) = NOM_SELECTIONNE
var(3, 13) = Me.TextBox1
var(9, 13) = Me.TextBox2
var(8, 13) = Me.TextBox3
var(9, 6) = Me.TextBox4
var(10, 6) = Me.TextBox5
var(11, 6) = Me.TextBox6
R = var
Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
With Me.ListBox1
  For i& = 0 To .ListCount - 1
    If .Selected(i&) = True Then
      NOM_SELECTIONNE = .Column(0)
      Me.TextBox1 = .Column(1)
      Me.TextBox2 = .Column(3)
      Me.TextBox3 = .Column(4)
    End If
  Next i&
End With
End Sub

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox4) Then
  TextBox4 = Format(TextBox4, "dd/mm/yyyy")
Else
  MsgBox "Saisissez la date au format jj/mm/aaaa"
  TextBox4 = ""
End If
End Sub

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox6) Then
  TextBox6 = Format(TextBox6, "hh:mm")
Else
  MsgBox "Saisissez l'heure au format hh:mm"
  TextBox6 = ""
End If
End Sub

Private Sub UserForm_Initialize()
Dim var
var = Sheets("BD").Range("a3:e" & Sheets("BD").[a65536].End(xlUp).Row & "")
With Me.ListBox1
  .ColumnCount = 5
  .ColumnWidths = "20;0;0;0;0"
  .List = var
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim OL As OLEObject
Dim bool
'--- On teste si la feuille sélectionnée a un CommandButton1 "Adresse" ---
For Each OL In Sh.OLEObjects
  If OL.Object.Caption = "Adresse" Then
    bool = True
  End If
Next OL
'--- Si absence du CommandButton1 "Adresse" on ferme le UserForm ---
On Error Resume Next    'par sécurité (semble inutile)
If Not bool Then Unload Saisie
End Sub