Trouver la DERNIERE LIGNE VBA

Bonjour

je voudrai savoir comment revenir la ligne suivante a chaqUE activation du bouton, cad je veux verifier si A B de ma ligne sont vide pour qu'il ne m'ecrase mon ancien resultant

Private Sub CommandButton4_Click()

• -
• -
• --

'Sheets("Feuil1").Range("B2" & derligne).Value = Range("Y" & i + 1).Value

'Sheets("Feuil1").Range("A2" & derligne).Value = Val(TextBox2.Value)

End Sub

Merci d'avance pour votre aide

dernligne = Sheets("Feuil1").range("B" & Sheets("Feuil1").rows.count).end(xlup).row + 1