Effacer le contenu de la dernière ligne sans effacer une formule

[Moniato]

Bonjour à tous je n'arrive pas à trouver un code pour un CommandButton_Click() dans userform, qui puisse effacer le contenu de ma dernière ligne sans m'effacer la formule contenu dans la dernière cellule de cette ligne colonne E.

Voici ce qui fonctionne mais qui m'efface tout formule compris.

Private Sub CommandButton_Click()
Application.ScreenUpdating = False
Dim derligne As Integer
If MsgBox("confirmez-vous la suppression de la derniere ligne?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("VDD").Range("A456541").End(xlUp).Row + 1#
derli = Sheets("VDD").Range("A" & Rows.Count).End(xlUp).Row
Sheets("VDD").Cells(derli, 1).EntireRow.ClearContents


End If

End Sub

Si quelqu'un pourrait m'aider ce serait vraiment sympa.
Merci.

 

[mapomme]

Bonsoir @Moniato ,

Essayez:

   With Sheets("VDD")
      .Range(.Cells(derli, "a"), .Cells(derli, "d")).ClearContents
      .Range(.Cells(derli, "f"), .Cells(derli, Rows.Columns.Count)).ClearContents
   End With

 

[Moniato]

Bonsoir mapomme,

Merci pour votre réponse rapide j'ai placé votre code malheureusement il plante voir photo.
Je continue à chercher.

 

[Dranreb]

Bonsoir.
Ça plante forcément puisque vous avez supprimé toutes les instruction devant qui préparaient le terrain !
votre Sheets("VDD").Cells(derli, 1).EntireRow.ClearContents, vous pouvez aussi la remplacer par

Sheets("VDD").[A:D].Rows(derli).ClearContents

 

[Moniato]

Super !!!
Ça fonctionne un grand merci à vous pour votre aide.
Ce forum est génial et est une vraie mine d'or.
Merci.