macro pour suprimer ou modifier dans une base de donnée

Sub CelAujourdhui()
'sélectionne la cellule contenant la date du jour
Set r = Sheets("Planning").Columns(1).Find(Date, , xlFormulas, xlWhole)
If Not r Is Nothing Then r.Select
End Sub

Sub Copie()
Dim d As Date 'déclare la variable d (Date)
Dim cel As Range 'déclare la variable cel (CELlule)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Sheets("Copie du Jour").Cells.Clear 'efface d'éventuelles anciennes données
'définit la variable d en fonction de la valeur de la cellule K1
d = DateSerial(op.Range("A1").Value, Month(Date), Day(Date)) 'la date du jour
For Each cel In op.Columns(1).SpecialCells(xlCellTypeFormulas) 'boucle sur toutes les cellules de la colonne 1 contenant des formules
    If cel.Value = d Then 'condition : si la valeur de la cellule est égale à d
        ActiveWindow.ScrollRow = cel.Row 'place la ligne de d en haut du volet
        cel.Select
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
With Sheets("Copie du Jour") 'prend en compte l'onglet "Copie du Jour"
    ActiveCell.Resize(85, 15).Copy .Range("A1") 'copie la cellule active redimensionnée + 84 lignes et + 14 colonnes
    .Select 'sélectionne l'onglet
End With 'fin de la prise en compte de l'onglet "Copie du Jour"
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Sheets("Base de donnée").Unprotect "pralo"

Sheets("Base de donnée").Protect "pralo"