Function societe(R As Range)
societe = IIf(R <> "", Application.Choose(R, "Libre", "Papa", "Maman", "DrNicolas"), "")
End Function
Function Ref(R As Range)
' En rapport avec Function societe, si dessus
Ref = IIf(R <> "", Application.Choose(R, "---", "100", "499", "Z 4042"), "")
End Function