For c = 3 To nbREF
Range("BA" & c).Value = Application.SumIf(Range("AY3:AY" & nbligne), Range("AZ" & c).Value, Range("M3:M" & nbligne))
For t = 1 To nbtransporteur
' Cells(c, 53 + t).Value = Application.WorksheetFunction.SumIfs(Range("M3:M" & nbligne), Range("AY3:AY" & nbligne), Range("AZ" & c).Value, Range("AX3:AX" & nbligne), Cells(2, 53 + t).Value)
Cells(c, 53 + t).Value = Application.WorksheetFunction.CountIfs(Range("AY3:AY" & nbligne), Range("AZ" & c).Value, Range("AX3:AX" & nbligne), Cells(2, 53 + t).Value)
Next
Next