Re
Merci de ton fichier et explications
Une manière simple en modifiant tes codes comme suit
Dim ok1 As Boolean
Dim ok2 As Boolean
Private Sub CommandButton1_Click()
If ok1 = True Then Range("R5:Z13").Font.Color = RGB(0, 0, 0): ok1 = False: Exit Sub
...
ok1 = true
End sub
Puis le deuxième code comme ceci :
Private Sub CommandButton2_Click()
If ok2 = True Then Range("R24:Z32").Font.Color = RGB(0, 0, 0): ok2 = False: Exit Sub
...
ok2 = true
End sub
Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil
Cordialement