Bonjour,
Une piste, code à mettre dans le module de la feuille :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
Dim Cel As Range
If MsgBox("Report de couleur ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
Set Cel = ActiveCell
Application.DisplayAlerts = False
On Error GoTo Fin
Set Plage = Application.InputBox("Plage devant être colorée !", , , , , , , 8)
Plage.Interior.Color = Cel.Interior.Color
Cancel = True
Fin:
Application.DisplayAlerts = True
End Sub
Le code fonctionne de la manière suivante :
clic droit sur la cellule ayant la couleur à reproduire, là, une boite de message te demande si tu veux faire un report de couleur, si oui, une autre boite de message te demande de sélectionner la plage devant avoir la même couleur que la cellule active, le clic sur Ok colore la plage sinon, le menu contextuel est ouvert et rien ne se passe d'autre