Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim coef#, r As Range, n As Byte, a$(), nn&, rr As Range
coef = 1.5 'coefficient de zoom, à adapter
'---RAZ---
Label1.Visible = False: Label2.Visible = False
Cells.Borders.LineStyle = xlNone: Cells.Interior.ColorIndex = xlNone 'RAZ
'---bordures---
Set r = Intersect([E2].CurrentRegion.EntireColumn, [B5].CurrentRegion.EntireRow) 'cellules à adaptet
For n = 7 To 10: r.Borders(n).Weight = xlMedium: Next
'---couleurs---
If Intersect(ActiveCell, r) Is Nothing Then Exit Sub
Range(ActiveCell.MergeArea, Cells(r.Row, ActiveCell.Column)).Interior.ColorIndex = 8
Range(ActiveCell.MergeArea, Cells(ActiveCell.Row, r.Column)).Interior.ColorIndex = 8
For Each r In r
If r.MergeCells Then If Intersect(r, ActiveCell) Is Nothing Then r.Interior.ColorIndex = 6 'jaune
Next r
'---Zoom sur les Labels---
n = 0
For Each r In Union(Intersect(ActiveCell.MergeArea.EntireColumn, [E2].EntireRow), Intersect(ActiveCell.MergeArea.EntireRow, [B5].EntireColumn)).Areas
With IIf(n, Label1, Label2)
ReDim a(r.Count - 1) 'base 0
nn = 0
For Each rr In r
a(nn) = rr.Text
nn = nn + 1
Next rr
.Caption = Join(a, IIf(n, vbLf, "-"))
.Font.Size = coef * r.Font.Size
.AutoSize = False
.Height = coef * r.Height
If n Then .AutoSize = True
.Width = coef * r.Width
If n = 0 Then .AutoSize = True
.Left = r.Left + (r.Width - .Width) / 2
.Top = r.Top + (r.Height - .Height) / 2
.Visible = True
End With
n = n + 1
Next r
End Sub