ajustement de ligne uniquement sur passage de la cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A10:A20")) Is Nothing Then
        Columns("A:A").ColumnWidth = 25
        Rows("10:20").RowHeight = 20
        Target.EntireRow.RowHeight = 40
    Else
        Columns("A:A").ColumnWidth = 2
        Rows("10:20").RowHeight = 20
    End If
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    Cells.RowHeight = 14.25
    If c.Column = 1 And c.Row > 9 And c.Row < 21 Then c.RowHeight = IIf(c.Row = 107, 50, 150)
    Columns(1).ColumnWidth = IIf(c.Column = 1, 25, 2)
End Sub