Bonjour
Pour ce qui est de la première question, réponse avec une fonction personnalisée.
Au passage, tes fonctions iNDEX-EQUIV n'avaient nul besoin d'êtres validées en matricielle.
Pour ce qui est de la seconde, pourquoi ne pas faire un copier coller de la colonne J vers la colonne O?Au lieu de copier cellule par cellule?
Sub Copie()
Range("J2:J" & [j65000].End(xlUp)).Copy
Range("O2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O2").Select
Application.CutCopyMode = False
End Sub
Cordialement