Bonjour zozo
1) Changer votre code par
Sub CHGETRT()
'
' CHGETRT Macro
'
With Sheets("CHGE-DIRECT")
With .Range("B11:L87")
.Value = 0
.Formula = "=INDEX(BARESULTAT!$A$1:$CA$500,MATCH(B$10,BARESULTAT!$A$1:$A$500,0),MATCH($A11,BARESULTAT!$C$1:$CA$1,0))"
.Value = .Value
End With...