Merci h2so4 pour cette réponse. Mais on ne s'est pas compris.
Si en C14 il y a la somme 100 et qu' en mars on a 30 pour février il faut alors que le total en C14 soit de 130. (C14+C7).
Depuis ce matin, je suis en train de chercher, en oubliant la fonction If not intersect, et additionnant le nombre en colonne D plus une rechecheV .
Cela ne marche pas plus . Je suis vraiment nulle
Sub Fomule()
Dim i As Integer
Dim Dernligne As String
Dernligne = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next
For i = 12 To Dernligne
Range("C" & i) = WorksheetFunction.VLookup(Range("B" & i), Range("B7:C9"), 2, False)
If Err.Number <> 0 Then
Range("C" & i) = ""
Err.Clear
End If
Next i
End Sub