Private Sub Worksheet_Activate()
Dim Dic As New Dictionary, RéfPièce As SsGr, TDon(), L&
For Each RéfPièce In Gigogne(Feuil1.[B2:L2], 11, Null, -1)
Dic(RéfPièce.Id) = RéfPièce.Co(1)(1)
Next RéfPièce
TDon = ColUti(Me.[C3]).Value
For L = 1 To UBound(TDon, 1):
If Dic.Exists(TDon(L, 1)) Then
TDon(L, 1) = Dic(TDon(L, 1))
Else
TDon(L, 1) = TDon(L, 1) & " ?": End If
Next L
Me.[R3].Resize(UBound(TDon, 1)).Value = TDon
End Sub