Salut,

Voici les 2 formules qui marchent suivantes :
FORMULE 1:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
    For iCaseJour = 0 To 5
        gFeuilleHebSem.Cells(j, 6 + 2 * iCaseJour).FormulaLocal = "='Outil.xls'!CalculNbAgentParTrancheHebdo(" & j - NbLigGH + 1 & ";" & Retour_Col(6 + iCaseJour * 2) & NBLigTH + 1 & ":" & Retour_Col(7 + iCaseJour * 2) & NbLigGH - 2 & ")"             
    Next iCaseJour
Et:
FORMULE 2:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    For M = 0 To 5
        gFeuilleHebSem.Range(Retour_Col(2 * M + 6) & j & ":" & Retour_Col(2 * M + 7) & j).Merge
        gFeuilleHebSem.Cells(j, 2 * M + 6).FormulaR1C1 = "=P!R" & LigP & "C[" & 2 - M & "]"
    Next M
Ce que je voudrais faire, c'est avoir au niveau d'une même cellule la chose suivante:
FORMULE 1 "tiret" FORMULE 2.

J'ai fais la chose suivante, mais ça ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
For iCaseJour = 0 To 5
        gFeuilleHebSem.Cells(j, 6 + 2 * iCaseJour).FormulaLocal = "='Outil.xls'!CalculNbAgentParTrancheHebdo(" & j - NbLigGH + 1 & ";" & Retour_Col(6 + iCaseJour * 2) & NBLigTH + 1 & ":" & Retour_Col(7 + iCaseJour * 2) & NbLigGH - 2 & ")" _
& "-" & "=P!R" & LigP & "C[" & 2 - iCaseJour  & "]"
 
 
    Next iCaseJour
Est-ce que qqun peut m'aider please ?

Thx !

Mila