XL 2013 Copier / Coller

Dim nom$, ss%, sl% 'mémorise les variables

Private Sub CommandButton1_Click()
If nom = "" Then TextBox1.SetFocus: Exit Sub
With Me(nom)
  .Text = Left(.Text, ss) & TextBox1 & Mid(.Text, ss + sl + 1)
  .SetFocus
  .SelStart = ss
  .SelLength = Len(TextBox1)
End With
End Sub

Private Sub TextBox1_Enter()
nom = ""
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Memorise
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Memorise
End Sub

Sub Memorise()
With ActiveControl
  nom = .Name
  ss = .SelStart
  sl = .SelLength
End With
End Sub