XL 2016 choix selon nombre de celulle selectionée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, [I1:BN30]) Is Nothing Then
        If Target.Count = 1 Then
            MsgBox "Une cellule sélectionnée :   " & Target.Address
        ElseIf Target.Count = 2 Then
            MsgBox "Deux cellules sélectionnées :   " & Target.Address
        End If
    End If
Fin:
End Sub

Sub Test()
With Selection
    If .Row > 30 Or .Column < 9 Or .Column > 30 Then Exit Sub
    If .Cells.Count = 1 Then
        MsgBox "Une cellule sélectionnée :   " & .Address
    ElseIf .Cells.Count = 2 Then
        MsgBox "Deux cellules sélectionnées :   " & .Address
    End If
End With
End Sub

Sub Test2()
If Not Application.Intersect(Selection, Range("I1:BN30")) Is Nothing Then
    With Selection
        If .Cells.Count = 1 Then
            MsgBox "Une cellule sélectionnée :   " & .Address
        ElseIf .Cells.Count = 2 Then
            MsgBox "Deux cellules sélectionnées :   " & .Address
        End If
    End With
End If
End Sub