Option Explicit
Function Ressortir(ByVal Quoi, ByVal VClé, ByVal Dans)
Dim RngAC As Range, LDon As Long, LRés As Long, TRés()
If TypeOf Quoi Is Range Then Quoi = Quoi.Value
If TypeOf VClé Is Range Then VClé = VClé.Value
If TypeOf Dans Is Range Then Dans = Dans.Value
Set RngAC = Application.Caller
ReDim TRés(1 To RngAC.Rows.Count, 1 To 1)
For LDon = 1 To UBound(Dans, 1)
If Dans(LDon, 1) = VClé Then LRés = LRés + 1: TRés(LRés, 1) = Quoi(LDon, 1)
Next LDon
While LRés < UBound(TRés, 1): LRés = LRés + 1: TRés(LRés, 1) = "": Wend
Ressortir = TRés
End Function