Rajouter des donnees a une colonne

[Vicki]

bonjour tout le monde!


j'ai une macro qui me selectionne des donnees mais ne me les 'envoies' pas a la place que je souhaiterais

Que faut il changer dans la macro?

je vous joins un petit fichier qui explique ce que je recherche

d'avance je vous remercie beaucoup de votre aide

Victoire

 

[Ti]

voilà ta macro corrigée :

Sub Selection()
Dim Plage As Range, Cel As Range, CelD As Range

With Worksheets("situation depart")
Set Plage = .Range("F1", .Range("F65536").End(xlUp))
Set CelD = .Range("A65536").End(xlUp)
End With

For Each Cel In Plage
If Cel.Value <> "0" Then
CelD = Cel
Set CelD = CelD.Offset(1, 0)
End If
Next Cel
End Sub

 

[Vicki]

super!


merci beaucoup "Ti"

victoire