Voila j'ai deja posté un message sur le forum pour un probleme different sur ce petit bout de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Function compte_lig(i As Integer, j As Integer, a As Worksheet) As Integer
compte_lig = 0
Do While Worksheets("a").Cells(i, j) <> ""
i = i + 1
compte_lig = compte_lig + 1
Loop
End Function
j'ai l'erreur:"Erreur definie par l'application ou par l'objet" pour la ligne suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Do While Worksheets("a").Cells(i, j) <> ""
Ce n'est vraiment pas compliqué mais ca me bloque. . .