Bonjour,

voilà, j'ai le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sheets("Feuil2").Select
Range("H2").Select
 Selection.FormulaArray = _
        "=INDEX('R1'!R1C4:R500C4,MIN(IF('R1'!R3C10:R500C10=RC7,IF(COUNTIF(RC1:RC7,'R1'!R3C4:R500C4)=0,ROW('R1'!R3C10:R500C10)))))&"""""
et il fonctionne.

Mais en fait je mets ce code dans une boucle et donc j'ai un nombre de ligne variable, donc je change mon code en mettant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sheets("Feuil2").Select
Range("H2").Select
 Selection.FormulaArray = _
        "=INDEX('R1'!R1C4:R & DerniereLigneC4,MIN(IF('R1'!R3C10:R & DerniereLigneC10=RC7,IF(COUNTIF(RC1:RC7,'R1'!R3C4:R & DerniereLigneC4)=0,ROW('R1'!R3C10:R & DerniereLigneC10)))))&"""""
DerniereLigne étant la derniere ligne de la feuille 'R1'

Et j'ai le message d'erreur :
Impossible de définir la propriété FormulaArray de la classe Range
et je ne comprends pas....

Une idée ?

Merci,
A+