Bonjour Fath,

Voici ton code modifié qui effacera les données de la feuille "Saisie" a partir de la ligne 6 sauf les colonnes "A & O" en concevant les formules de la feuille "saisie".

Private Sub CommandButton1_Click()
Dim LigneS As Long, ligneR As Long

Application.ScreenUpdating = False

' boucle sur lignes 6 à 99 de Saisie pour déterminer la denière ligne remplie (pas possible par méthode Find car formules dans cellule)
For n = 6 To 99
If Range("J" & n) = "" Then LigneS = n - 1: Exit For
Next
' première ligne vide de Report
ligneR = Sheets("Report").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
' copie les lignes de Saisie
ActiveSheet.Range("A5:U" & LigneS).Select
    Application.CutCopyMode = False
    Selection.Copy
    'Collage dans Report
    Sheets("Report").Select
    Sheets("Report").Range("A" & ligneR).Select
    ActiveSheet.Paste
    ' Retour à Saisie
    Sheets("Saisie").Select
    
    On Error Resume Next
    ActiveSheet.Range("B6:N" & LigneS).SpecialCells(xlCellTypeConstants, 23).ClearContents
    ActiveSheet.Range("P6:U" & LigneS).SpecialCells(xlCellTypeConstants, 23).ClearContents
    On Error GoTo 0
    
End Sub

Cordialement.