Sub analyse()
For i = 2 To 26
v_ligne_analyse = Sheets("ANALYSE").Cells(i, 1)
For j = 0 To 16
v_colonne_analyse = Sheets("ANALYSE").Cells(1, j + 3)
For k = 2 To 26
v_ligne_list_demande = Sheets("LIST DEMANDE").Cells(k, 1)
If v_ligne_list_demande = v_ligne_analyse Then
For l = 0 To 16
v_colonne_list_demande = Sheets("LIST DEMANDE").Cells(1, l + 3)
If v_colonne_list_demande = v_colonne_analyse Then
Sheets("ANALYSE").Cells(i, j + 3).Value = Sheets("ANALYSE").Cells(i, j + 3).Value - Sheets("LIST DEMANDE").Cells(k, l + 3).Value
End If
Next l
End If
Next k
Next j
Next i
End Sub