VBA - trouver derniere colonne masquée

Sub test()
Dim i As Long
For i = ActiveSheet.Columns.Count To 1 Step -1
    If Columns(i).Hidden Then
        MsgBox Cells(11, i).Value
        Exit For
    End If
Next i
End Sub

Sub NoColonneCachee()
' Affiche le numéro de la dernière colonne cachée poue une plage
' de cellules sélectionnées

    Dim rg As Range
    Dim i As Long, j As Long, n As Long
    Dim Max As Long
    
    Set rg = Selection
    i = rg.Cells(1, 1).Column
    j = rg.Cells(1, rg.Columns.Count).Column

    Max = 0
    For n = i To j
        If Columns(n).Hidden Then Max = n
    Next n
    MsgBox "Dernière colonne cachée : " & Max

End Sub

MsgBox "Colonne " & i & " : " & Cells(11, i).Value

 Sub masq()

 Dim i As Long
 For i = ActiveSheet.Columns.Count To 1 Step -1
     If Columns(i).Hidden Then
         MsgBox (i)
         Exit For
     End If
 Next i
 End Sub

 Sub masq1()

 Dim i As Long
 For i = ActiveSheet.Columns.Count To 1 Step -1
     If Columns(i).Hidden Then
         Columns(i).Select
         MsgBox ("colonne " & Split(ActiveCell.Address, "$")(1))
         Exit For
     End If
 Next i
 End Sub

Sub masq()
  Dim n As Long
  n = Me.Columns.Count
  Do Until Columns(n).Hidden: n = n - 1: Loop
  MsgBox Split(Columns(n).Address, "$")(2), vbInformation, "Dernière colonne cachée"
End Sub