Tu fais une boucle pour les servir tous.
Et pour raccourcir, dans la condition tu définis la couleur à appliquer, et dans la boucle tu l'appliques !
Private Sub TextBox81_AfterUpdate()
Dim i%, clr&
If TextBox81.Value = 6 And TextBox82.Value = 21 Then
clr = vbRed
Else
clr = vbWhite
End If
For i = 6 To 21
Controls("TextBox" & i).BackColor = clr
Next i
End Sub
Et alors là il faut normalement que tu fasses la même chose pour le 82 !
Donc pour économiser du code, tu mets cette procédure dans une Sub autonome.
Sub CouleurTB6_21()
mais tu peux l'appeler comme tu veux..., et tes proc d'évènements deviennent :
Private Sub TextBox81_AfterUpdate()
CouleurTB6_21
End Sub
Private Sub TextBox82_AfterUpdate()
CouleurTB6_21
End Sub
Cordialement.
edit : Si problème lié au fait que TextBox = texte, tu mettras 6 et 21 entre guillemets...