[Excel] Passer au next suivant si erreur

Option Explicit

Sub Macro4()
Dim Tent As String, Tent2 As String, tata As String, tata2 As String, derl As Long, derl3 As Long, derl2 As Long, i As Long, k As Long, RefKits As String, DenoKits As String, j As String, V As String, n As Long, TypeEnt As Long
derl = Sheets("Kits").Range("G65536").End(xlUp).Row

Sheets("test").Cells.Clear
Application.ScreenUpdating = False

If UImp.Periodes.Value = "A" Then TypeEnt = 6
If UImp.Periodes.Value = "S" Then TypeEnt = 5
If UImp.Periodes.Value = "Q" Then TypeEnt = 7

For i = 3 To derl
On Error Resume Next
derl2 = Sheets("test").Range("Y65536").End(xlUp).Row
k = derl2 + 1
Sheets("Kits").Select

V = Cells(1, 5).Value
    tata = Cells(i, TypeEnt).Comment.Text
    If Err.Number = 0 Then
    tata2 = Application.Substitute(tata, Chr(10), " ; ")
    RefKits = Cells(i, 3)
    DenoKits = Cells(i, 1)
    

Sheets("test").Select

    'Cells(1, 1).FormulaR1C1 = "Liste de pieces pour entretien" & j & " Autoclave " & V
    Cells(k, 1).FormulaR1C1 = RefKits
    Cells(k, 2).FormulaR1C1 = tata2
    
    Cells(k, 2).Select
    Selection.TextToColumns Destination:=Cells(k, 3), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
        TrailingMinusNumbers:=True
    Range(Cells(k, 3), Cells(k, 23)).Select
    Selection.Copy
    Cells(k, 25).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

derl3 = Sheets("test").Range("Y65536").End(xlUp).Row
n = derl3 - 1
    Range(Cells(k, 2), Cells(n, 28)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
Range(Cells(1, 1), Cells(n, 28)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    
    End If
    Next i


Columns("B:X").Select
    Selection.Delete Shift:=xlToLeft
Range("A1") = "Ref Kit"
Range("B1") = "Elément"
Range("C1") = "Changé             "
Range("D1") = "Etat               "
Range("E1") = "Commantaire        "
Columns("A:W").EntireColumn.AutoFit
Columns("A:W").VerticalAlignment = xlTop
Columns("B:B").Select
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Application.ScreenUpdating = True
Sheets("test").Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ExecuteExcel4Macro _
    "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
End Sub

else
       err.clear
end if