Private Sub CommandButton1_Click() 'Worksheet_Activate()
Dim o As Object, vide As Boolean
For Each o In Feuil4.OLEObjects
If TypeName(o.Object) = "TextBox" Then _
If o.Object = "" Then vide = True
Next
TextBox1 = IIf(vide, "", "OK")
TextBox1.BackColor = IIf(vide, vbRed, vbGreen)
End Sub