XL 2016 mise a jour de tableau avec des textbox

Private Sub Cmd_Modif_Click()
Dim y As Long
For y = 2 To Sheets("Gamme").Cells(Rows.Count, 6).End(xlUp).Row
If Txt_NumBV.Text = Cells(y, 6) Then
Cells(y, 58).Resize(, 3) = Array(Txt_Couple_1, Txt_Reg_1, Txt_Tps_1)
End If
Next y
End Sub

Private Sub Cmd_Modif_Click()
Application.ScreenUpdating = False
On Error Resume Next
With Sheets("Gamme")
    If .[A1].Formula = "" Then .[A1] = " "
    With .UsedRange
        .AutoFilter 6, Txt_NumBV 'filtre automatique
        With .Offset(1).Resize(.Rows.Count - 1)
            .Columns(58).SpecialCells(xlCellTypeVisible) = Txt_Couple_1.Value
            .Columns(59).SpecialCells(xlCellTypeVisible) = Txt_Reg_1.Value
            .Columns(60).SpecialCells(xlCellTypeVisible) = Txt_Tps_1.Value
        End With
    End With
    .AutoFilterMode = False
End With
End Sub