raccroché feuille a bouton

Sub Macro1()
Dim I%, J%, Lig%
Dim Flag As Boolean
Dim Ws_Bt As Worksheet
Application.ScreenUpdating = False
Set Ws_Bt = Sheets("Catégorie bt")
Lig = 2
For I = 1 To Ws_Bt.Range("A65000").End(xlUp).Row
    If I Mod 22 = 0 Then
        J = J + 1
        Lig = 2
    End If
    If Not Flag And InStrRev(Ws_Bt.Cells(I, 1), "M") < 2 Then
        Flag = True
        Lig = 2
        J = J + 1
    End If
    With Sheets("hub")
        .Cells(Lig, J + 1).Value = Ws_Bt.Cells(I, 1).Value
        ActiveSheet.Hyperlinks.Add Anchor:=.Cells(Lig, J + 1), Address:="", SubAddress:= _
            "'" & Ws_Bt.Cells(I, 1).Value & "'!A1", TextToDisplay:=Ws_Bt.Cells(I, 1).Value
        Lig = Lig + 1
    End With
Next I
End Sub