Option Compare Text
Sub test()
Dim i&, j%, cpt_Out&, cpt_In&
Sheets("STATUT").Select
With Sheets("Feuil1")
For j = 3 To Range("IV1").End(xlToLeft).Column
For i = 2 To .Range("A65536").End(xlUp).Row
If .Range("G" & i).Value = Val(Mid(Cells(1, j).Value, 2, 3)) Then
If .Range("D" & i).Value = "In" Then
cpt_In = cpt_In + .Range("C" & i).Value
Else
cpt_Out = cpt_Out + .Range("C" & i).Value
End If
End If
Next i
Cells(2, j).Value = cpt_In
Cells(3, j).Value = cpt_Out
cpt_In = 0
cpt_Out = 0
Next j
End With
End Sub