Macro dans un Userform qui arrêtte

Sub b()
    Dim l As Long
    Dim c As Range
 
    With Feuil1
        For Each c In Range(.Cells(2, 1), .Cells(2, [B2].End(xlToRight).Column))
            If c = 1 Then
                Range(c.Offset(-1, 0), c.Offset(-1, 9)).Copy Feuil2.[A1]
                Application.CutCopyMode = False
                Exit For
            End If
        Next
    End With
 
    Feuil2.Activate
    [A1].Select
End Sub

Sub CopieDeJeNeSaisOuVersJeNeSaisOu()
    With ActiveSheet
        For i = 1 To [A2].End(xlToRight).Column Step 5 '???
            If .Cells(2, i) = 1 Then
            Set plage = .Range(.Cells(1, i).Address, .Cells(10, i + 4).Address)
                With Sheets(2)
                dl = .Range("A65000").End(xlUp).Row + 1
                    If dl = 2 Then dl = 1
                    .Range("A" & dl & ":E" & dl + 9) = plage.Value
                End With
            End If
        Next
    End With
End Sub