Bonjour,

Dans une feuille, j'ai deux colonnes qui sont filtrées. Je souhaite copier vers une autre feuille valeur par valeur tout en insérant un certain nombre de ligne variable suivant le résultat de ma deuxième colonne associé qui correspond à mon occurrence dans le résultat de mon filtre.
Pour le moment mon code copie toutes les valeurs possibles mais avec des espacements après le collage dans ma deuxième feuille : si valeur en A1, A5, A25 alors les valeurs copiés se trouvent avec les mêmes adresses dans la deuxième feuille.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    Dim occurence As Range
    For Each occurence In Range("A2", [A65536].End(3)).SpecialCells(xlCellTypeVisible)
        If occurence.Offset(0, 1).Value = 1 Then
        Dim PasteCell As Range
        For I = 0 To LigneOccurence
                Set PasteCell = Sheets(CurrentDate).Range("A" & I + 2)
                occurence.Copy Destination:=PasteCell
        Next I
        End If
    Next occurence
Merci d'avance de votre aide.

Arkyo