Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastCmd As String, SelCol As Long
LastCmd = Application.CommandBars("Standard").Controls("&Refaire").List(1)
If LastCmd Like "Coller*" Then ' Dernière action = "coller"
SelCol = Selection.Interior.Color ' Couleur de fond de la sélection collée
'Appel au dialog box ColorPicker avec le selcol
If Application.Dialogs(xlDialogEditColor).Show _
(1, SelCol Mod 256, (SelCol \ 256) Mod 256, SelCol \ 65536) Then
' On applique la couleur choisie à la sélection
Selection.Interior.Color = ActiveWorkbook.Colors(1)
End If
End If
End Sub