Copier des données d'une feuille à d'autres selon conditions

Re galfy,

Pour visualiser les zones qui s'effacent avant la ventilation, exécute cette macro, c'est la 1ère boucle dans le code précédent.

N'ayant pas ton fichier sous le nez, j'ai peut-être mal défini la variable lastRow1.

Pour rappel, j'ai rajouté la colonne "Pièce n°" dans les feuilles "Badnet" et "Caisse"

Sub selection_zone_a_effacer()
    Dim feuille, e, lastRow1 As Long
    feuille = Array("Compte bancaire", "Livret", "Badnet", "Caisse")
    For Each e In feuille
        With Sheets(e)
            .Select
            lastRow1 = .Range("J" & .Rows.Count).End(xlUp).Row
            If lastRow1 > 2 Then
                With .Range("A2:J" & lastRow1)
                    .Offset(1).Resize(.Rows.Count - 1).Select
                    '.Offset(1)Resize(.Rows.Count - 1).ClearContents
                End With
            End If
        End With
    Next
End Sub

Chez moi, je ne rencontre aucun problème, les zones s'effacent en amont de la ventilation.

La disposition de tes données reflète t-elle celle figurant dans le fichier que tu as envoyé au post #1 ?

klin89