Bonjour

Voici ci dessous mon code, cependant il ne prend pas en compte les conditions du IF et effectue donc le calcul. Pourquoi?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If Sheets("Achat 2012-2013").Range("C" & i - 5).Value <> "ALOST FARIN HORS ICK ET NESLE EQUIVALENT BLE" Or Sheets("Achat 2012-2013").Range("C" & i - 5).Value <> "ICKLINGHAM BLE" Then
 
 
            strFormule5 = strFormule5 & "+" & "SOMMEPROD('Achat 2012-2013'!D" & i + 13 & ";'Achat 2012-2013'!K" & i + 13 & ")"
            strFormule6 = strFormule6 & ";'Achat 2012-2013'!D" & i + 13
 
 
       End If
Cdt