Hey !
en effet, j'avais oublié cea
For i = 2 To nb_ligne1
mois = Month(Cells(i, 1).Value)
For Each mois In Columns("A:A")
If (Cells(1, 4) = "PTE") Then
sommedep = Cells(i, 7).Value + sommedep
Range("P5").Value = sommedep
ElseIf (Cells(1, 4) = "HPH") Then
sommedep = Cells(i, 7).Value + sommedep
Range("P6").Value = sommedep
ElseIf (Cells(1, 4) = "HCH") Then
sommedep = Cells(i, 7).Value + sommedep
Range("P7").Value = sommedep
ElseIf (Cells(1, 4) = "HPE") Then
sommedep = Cells(i, 7).Value + sommedep
Range("P8").Value = sommedep
Else
sommedep = Cells(i, 7).Value + sommedep
Range("P9").Value = sommedep
End If
Next
Next
Je peux pas mettre de fichier, les données sont internes.
J'espère que c'est assez claire ..