Bonjour
Sub MettreCouleur()
If ActiveCell.Column = 1 And ActiveCell.Row > 3 Then
Range(ActiveCell, ActiveCell.Offset(0, 9)).Interior.ColorIndex = 4
Else: ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub
Et il faut affecter le bouton à cette Macro
Et, si tu ne veux que cette ligne en couleur, tu mets par exemple,en première ligne de Code
Range("A4:J1000").Interior.ColorIndex = xlNone
cordialement