Sub untextbox()
Dim txt As OLEObject
For Each txt In ActiveSheet.OLEObjects
If TypeOf txt.Object Is MSForms.TextBox Then
txt.Object.Value = ""
End If
Next txt
End Sub
Sub RAZ_Textbox()
Application.ScreenUpdating = False
LockWindowUpdate FindWindowA("XLMAIN", Application.Caption)
groupe = Array("A", "B", "C", "D")
Dim Ws As Worksheet
For Each Ws In Sheets(groupe)
Sheets(Ws.Name).Select
Call untextbox
Next Ws
Application.ScreenUpdating = True
LockWindowUpdate 0
End Sub