Re : Recherche valeur + somme résultats
Un grand Merci à Papou
code:
Sub Calculer()
Dim x, y As Integer
plage = Sheets("Format").Range("A65000").End(xlUp).Row
deb = 2
For x = 2 To plage
If Cells(x, 11) = 0 And Cells(x, 12) = 0 And Cells(x, 13) = 0 Then
fin = x
Cells(x, 11) =...