Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(["zoneplanning"], Target) Is Nothing And Target.Count = 1 Then
Target.Interior.ColorIndex = Range("couleurs").Find(Target).Interior.ColorIndex
Target.Font.ColorIndex = Range("couleurs").Find(Target).Font.ColorIndex
'Fusionner la cellule active avec la suivante
Target.Offset(, 1).Resize(1, 2).MergeCells = True
End If
End Sub