======== Module1.bas ========== Private Function Sinus(X As Double) As Double Sinus = Sin(X) End Function Public Function Cosinus(X As Double) As Double Cosinus = Cos(X) End Function ============================ ======== Module2.bas========== Private Function Tangente(X As Double) As Double Tangente = Tan(X) End Function Public Function Carre(X As Double) As Double Carre = X*X End Function Public Sub Test() Dim x as Double Dim y as Double Dim z as Double Dim t as Double x=Module1.Sinus(10) 'IMPOSSIBLE y=Module1.Cosinus(20) 'POSSIBLE z=Tangente(30) 'POSSIBLE t=Carre(40) 'POSSIBLE End Sub