Copier des cellules non vides d'une plage de cellule

VDAVID à dit:

Bonjour sgarnung,

Dans le projet de la feuil1 tu peux essayer ce code :

Code:

Sub Copie()

Dim i As Long, z As Long
z = 1
    For i = 1 To Range("A65536").End(xlUp).Row
    
        If Cells(i, 1).Value <> "" Then
        Range("E" & z).Value = Cells(i, 1).Value
        z = z + 1
        End If
    
    Next i
    
End Sub

Bonne journée !

Cliquez pour agrandir...