Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
'récupère la coleur de la cellule en colonne A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub