Option Explicit
Private Sub BoutonValide_Click() ' Le bouton "Valider" a été utilisé
Dim A
A = TextBox1.TextBox.Value
' dans cet ordre prècis pour respecter l'odre de grandeur
' !!!! voir pour les valeurs égales !? si c'est A >= 200 ou A <= 200 sinon 200 n'est pas testé !?
' !!!! idem pour pour 100 si tu veux A <= 100 ou A < 100 !?
If A >= 200 Then '1' ici appel de macros à toi de voir !?
FIP_AIP_MUSC
RENS_RECL
DEFPAY
MONETIQUE
SUPPLEANTS
RENFORT
CAPRO
ElseIf A < 100 Then '2' ici appel de macros à toi de voir !?
FIP_AIP_MUSC
RENS_RECL
DEFPAY
MONETIQUE
SUPPLEANTS
RENFORT
CAPRO
ElseIf A < 200 Then '3' ici appel de macros à toi de voir !?
FIP_AIP_MUSC
RENS_RECL
DEFPAY
MONETIQUE
SUPPLEANTS
RENFORT
CAPRO
End If
End Sub