Bonjour,

J'aimerai bien savoir le problème dans le code suivant en rouge:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Range("C44").Select
If SUM('Feuil1'!B11,'Feuil1'!C11,'Feuil1'!B12,'Feuil1'!C12) >= SUMPRODUCT((('Feuil1'!I17:I19729=""DON"")+('Feuil1'!I17:I19729=""DER"")+('Feuil1'!I17:I19729=""DTG""))*('Feuil1'!E17:E19729=30)) Then
ActiveCell.Formula = etc....
else .......
end if
Merçi d'avance.

Cdt,
SKIP