Bonjour,
Tu peux être n'importe où dans chaque tableau, mais son coin supérieur gauche doit commencer par "T" pour que la couleur s'applique.
Macro unique pour tous les boutons :
Sub couleur()
Dim lig As Long, col As Long
lig = Int((ActiveCell.Row - 4) / 5) * 5 + 4
col = Int((ActiveCell.Column - 2) / 5) * 5 + 2
If Left(Cells(lig, col), 1) = "T" Then Cells(lig, col).Resize(4, 4).Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
End Sub
eric