Par exemple comme ceci (tu peux mettre autant de numéros de Frames que tu veux dans l'Array "LesFram")
Dim Ctrl As Control
Dim I As Byte
Dim LesFram
LesFram = Array(1, 5)
For I = LBound(LesFram) To UBound(LesFram)
For Each Ctrl In Me.Controls("Frame" & LesFram(I)).Controls
If TypeName(Ctrl) = "ComboBox" Or TypeName(Ctrl) = "TextBox" Then
Ctrl = ""
End If
Next Ctrl
Next I