Private Sub CommandButton2_Click()
'textbox image
VAUD.TextBox1200.LinkedCell = Range("A2")
VAUD.TextBox1200 = Range("A2")
'textbox feuille
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.TextBox Then
obj.Object = Mid(obj.Name, 8)
End If
Next
End Sub