Sub Bouton1_Cliquer()
On Error Resume Next
Intersect(Range("a1:h50,a60:h100"), Selection.Precedents) = "T"
End Sub
Sub Bouton2_Cliquer()
On Error Resume Next
Intersect(Range("a1:h50,a60:h100"), Selection.Precedents) = "A"
End Sub
Sub Bouton3_Cliquer()
Dim xcell
On Error Resume Next: Application.ScreenUpdating = False
For Each xcell In Intersect(Range("a1:h50,a60:h100"), Selection)
If xcell = "A" Or xcell = "T" Then xcell.ClearContents
Next xcell
End Sub