Public Function MdNbRef(Chaine1, valeur, ref, Chaine2)
Dim i As Integer, tablo1, tablo2
MdNbRef = ""
tablo1 = Split(Chaine1, ";")
tablo2 = Split(Chaine2, ";")
For i = 0 To UBound(tablo1)
If Val(tablo1(i)) = ref Then
tablo2(i) = valeur
End If
Next i
For i = 0 To UBound(tablo1)
MdNbRef = MdNbRef & ";" & tablo2(i)
Next i
MdNbRef = Mid(MdNbRef, 2)
End Function