Sub MAJ_valeur()
Dim mois As Integer
Dim mois_litige As Integer
For i = 5 To 16
For n = 2 To 350
With Sheets("Retard_litige")
mois = Month(.Cells(i, 1))
mois_litige = Month(Sheets("Retard_transporteur").Cells(n, 1))
If mois = mois_litige Then
Cells(i + mois - 1, 3) = WorksheetFunction.CountIf(Sheets("Retard_transporteur") _
.Range("B2:B350"), cell.Value = 24)
End If
End With
Next n
Next i
End Sub