fonction recherche (Supprimer 1ere ligne en conservant la formule)

Sub sup_vins_blancs()
'
' sup_vins_blancs Macro
'
    Dim derLig As Long
    
    If MsgBox("Es-tu certain de vouloir supprimer ce vin ?", vbYesNo, "suppression") = vbYes Then
        With Sheets("Blanc")
            ' Récupération de la dernière ligne remplie en colonne D
            derLig = .Range("D" & Cells.Rows.Count).End(xlUp).Row
            If derLig < 2 Then derLig = 2
            
            ' Effacer le contenu de la ligne entre les colonnes D et E
            .Range(Cells([param_lignes_blancs] + 1, 4), Cells([param_lignes_blancs] + 1, 5)).ClearContents
            ' Trier les colonnes D et E
            .Range(Cells(2, 4), Cells(derLig, 5)).Sort _
                Key1:=.Range("D2"), Order1:=xlAscending, _
                Header:=xlGuess, OrderCustom:=1, _
                MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
        End With
    End If
    Range("D19").Select
End Sub