incrémentation avec 1 USF

Private Sub CommandButton2_Click()
Dim dl1 As Long ' dernière ligne
If Not IsDate(TextBox2.Value) Then
    Call MsgBox("La date n'est pas conforme", vbCritical, Application.Name)

    Exit Sub
End If
With Sheets("Feuil1")
dl1 = .Range("a65536").End(xlUp).Row + 1
.Range("A" & dl1) = TextBox1.Value
.Range("b" & dl1) = CDate(TextBox2.Value)
If Controls("OptionButton1").Value = True Then .Range("d" & dl1) = " Catégorie " & Controls("OptionButton1").Caption
If Controls("OptionButton2").Value = True Then .Range("d" & dl1) = " Catégorie " & Controls("OptionButton2").Caption
If Controls("OptionButton3").Value = True Then .Range("e" & dl1) = " Position " & Controls("OptionButton3").Caption
If Controls("OptionButton3").Value = True Then .Range("e" & dl1) = " Position " & Controls("OptionButton4").Caption
.Range("c" & dl1) = TextBox3.Value
End With
End Sub