Comment conserver une ligne sur cinq dans Excel

Choisissez une colonne proche et écrivez =MOD(ROW(A1),5) sur la première ligne. Cela remplira toutes les lignes de cette colonne avec les chiffres 0-4. Ensuite, il suffit de filtrer automatiquement les lignes que vous voulez supprimer :
Data > Filter > AutoFilter

Editar: Puisqu'il s'agit d'une date récurrente, vous pourriez probablement aussi utiliser un fichier joker lors du filtrage , ie 14-*

Vous pouvez également essayer une solution VBA. Vous devrez peut-être apporter des modifications mineures en fonction de votre problème, mais cela donne une idée générale. Cette sous-routine suppose que la première cellule de la première ligne est activée, puis que la sous-routine est exécutée.

Sub sbDelete4Keep1()

    Dim rngProcess As Range
    Dim lCntr As Long
    Set rngProcess = ActiveCell
    lCntr = 1
    While Not IsEmpty(rngProcess.Offset(1, 0))
        Range(rngProcess, rngProcess.Offset(3, 0)).EntireRow.Delete
        Set rngProcess = ActiveCell.Offset(lCntr, 0)
        lCntr = lCntr + 1
    Wend

End Sub