Re : Fusion balances comptables
Re-bonjour,
Avec un peu de retard :
Sub tri()
derniere_ligne = Range("A1").CurrentRegion.Rows.Count
For a = 1 To derniere_ligne
If Cells(a, 3) = 0 And Cells(a, 4) = 0 And Cells(a, 3) <> "" And Cells(a, 4) <> "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp...