J'ai écrit:
For h = 8 To 172
If Cells(h, "d") = "Total" Then
Range("F3").Formula = Application.WorksheetFunction.Sum(Range("F3") +
Cells(h, "f"))
End If
If Cells(h, "d") = "" Then
Exit For
End If
Next h
Cells(3, "f") = Cells(3, "f") - Cells(6, "f") - Cells(7, "k"), cette ligne
ne fonctionne pas.
Je fais appel à vos connaissances pour faire cette soustraction.
Merci.
