Ajout et suppression de ligne en VBA via bouton

Private Sub CommandButton2_Click() 'bouton -
With ActiveSheet
    fin = .Range("C" & .Rows.Count).End(xlUp).Row
    If fin = 5 Then 
            .Rows(fin).clearcontents
           Exit Sub '5 et pas 4.. sinon, on garde bien l'entete, mais on perd la liste de validation et la mise en forme
  end if
    If fin <> .UsedRange.Rows.Count Then
       .Rows(fin + 1).Delete
    Else
        .Rows(fin).Delete
    End If
   
End With

End Sub

Private Sub CommandButton1_Click() 'bouton +
Dim fin As Integer

With ActiveSheet
    fin = .Range("C" & .Rows.Count).End(xlUp).Row
   
    If fin = 31 Then Exit Sub
    On Error GoTo fin
    .Rows(fin & ":" & fin).AutoFill Destination:=.Rows(fin & ":" & fin + 1), Type:=xlFillDefault
    .Rows(fin + 1 & ":" & fin + 1).ClearContents
End With
fin:
End Sub

Private Sub CommandButton2_Click() 'bouton -
Dim fin As Integer

With ActiveSheet
    fin = .Range("C" & .Rows.Count).End(xlUp).Row
    If fin = 31 Then Exit Sub
    If fin = 32 Then
        .Rows(fin).ClearContents
        Exit Sub
    Else
        .Rows(fin).Delete
    End If
End With
End Sub

Private Sub CommandButton2_Click()
'// bouton - // SUPPRESSION DERNIERE LIGNE TABLEAU

Dim fin As Integer

With ActiveSheet
    fin = .Range("C" & .Rows.Count).End(xlUp).Row
    If fin = 31 Then Exit Sub
    If fin = 32 Then
        .Rows(fin + 1).Delete      ' <<<< Ajout de cette ligne avant le clear content sinon je me retrouvais avec 2 lignes vide au lieu d'une.[/COLOR]
        .Rows(fin).ClearContents
        Exit Sub
    End If
    If fin <> .UsedRange.Rows.Count Then
       .Rows(fin + 1).Delete
    Else
        .Rows(fin).Delete
    End If
End With


End Sub