Bonjour,

Je suis débutant en VBA et j'ai écris ce code qui ne marche pas sans que je ne comprenne d'où peut venir l'erreur... Auriez-vous des idées ?
Merci !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Function ord_orig(List1, List2, n As Integer)
 
List1.Resize(, n)
List2.Resize(, n)
 
ord_orig = Application.WorksheetFunction.Intercept(List1, List2)
 
End Function