J'ai commencé à faire cela
Sub Macro3()
'
Selection.FormulaArray = _
"=INDEX('[listing élèves.xlsx]Feuil1'!C3,MATCH(RC[-10]&RC[-9],'[listing élèves.xlsx]Feuil1'!C1&'[listing élèves.xlsx]Feuil1'!C2,0))"
Selection.AutoFill Destination:=Range("K2:K4"), Type:=xlFillDefault
Range("K2:K4").Select
End Sub