Question avec la fonction SI

Const lideb = 1     ' premiere ligne à traite
Const cocode = 2    ' colonne code 1 (depot) ou 0 (retrait)
Const codepot = 5   ' colonne retrait où tous les montants sont au départ
Const coretrait = 4 ' colonne retrait

Public Sub OK()
Dim li As Long, co As Long, lifin As Long
With ActiveSheet
  lifin = .Cells(Rows.Count, 1).End(xlUp).Row
  For li = lideb To lifin
    If .Cells(li, cocode).Value = 1 Then
      .Cells(li, codepot).Value = .Cells(li, coretrait).Value
      .Cells(li, coretrait).Value = ""
    End If
  Next li
  Columns(cocode).Delete
End With
End Sub

Public Sub Tri()
' tu mets ton code
'
' puis tu fais un appel à la procedure OK
Call OK
End Sub

Const lideb = 1       ' premiere ligne à traiter
Const cocode = "B"    ' colonne code 1 (depot) ou 0 (retrait)
Const codepot = "E"   ' colonne retraits où tous les montants sont au départ
Const coretrait = "D" ' colonne depots

' cette procedure se chanrge de Séparer les depots et les retrits
Public Sub SepareRetraitsDepots()
Dim li As Long, co As Long, lifin As Long
With ActiveSheet
  lifin = .Cells(Rows.Count, 1).End(xlUp).Row
  For li = lideb To lifin
    If .Cells(li, cocode).Value = 1 Then
      .Cells(li, codepot).Value = .Cells(li, coretrait).Value
      .Cells(li, coretrait).Value = ""
    End If
  Next li
  Columns(cocode).Delete
End With
End Sub

' cette procedure se charge (en principe) du ménage (je ne vois pas de tri)
Public Sub Tri() 
Columns("A:D").Select 
Range("D1").Activate 
Selection.Delete Shift:=xlToLeft 
Columns("B:D").Select 
Selection.Delete Shift:=xlToLeft 
Columns("C:D").Select 
Selection.Delete Shift:=xlToLeft 
Columns("F:I").Select 
Selection.Delete Shift:=xlToLeft 
Columns("C:C").EntireColumn.AutoFit 
Columns("D:D").EntireColumn.AutoFit 
Columns("E:E").Select 
Selection.Style = "Comma" 
Selection.ColumnWidth = 14.44 
Range("F1").Select 
End Sub

' cette procedure lance le tri et la séparation des depots/Retraits
Public sub OK()
Call Tri
Call SepareRetraitsDepots
End Sub

' cette procédure lance le tri puis la séparation des Depots/Retraits
Public sub OK()
Call Tri
Call SepareRetraitsDepots
End Sub