Rajouter des donnees a une colonne

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

super!


merci beaucoup "Ti"

victoire