Bonjour Dranreb ,
Super ça marche Niquel !!
En reprenant la macro de Job75 et la modifiant ça fonctionne très bien (si ça peut servir à quelqu'un)
Sub RefEquipe()
With Sheets("Recup") 'Récup donnéees colonnes
.[A2].FormulaArray = "=HLOOKUP(R1C1,Réf_Equipe!R1C1:R1000C30,ROW(),FALSE)" 'Formule Recherche de référence
.[A2].Copy .[A3:A1000]
.[A2:A1000] = .[A2:A1000].Value 'supprime les formules
End With
Columns("A:A").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Cdlt Nicoalbert