Sub report()
With Sheets("Résultats Mensuel")
mois = .Range("C5")
dercol = .Cells(4, Columns.Count).End(xlToLeft).Column
For n = 3 To 15
If Sheets("Récapitulatif mois par mois").Cells(4, n) = mois Then
coldest = n
Exit For
End If
Next n
For m = 5 To 17
For p = 2 To dercol
tot = tot + .Cells(m, p)
Next p
With Sheets("Récapitulatif mois par mois").Cells(m, coldest) = tot '**********************
tot = 0
Next m
Set plage = .Range(Cells(5, 2).Address & ":" & Cells(17, dercol).Address)
For Each cel In plage
If InStr(cel.Formula, "=") = 0 Then cel.Value = 0
Next
.Range("C5") = ""
End With
End Sub