Sub Compte_ligne_2()
MsgBox atata("Module1"), vbInformation
End Sub
Sub Compte_ligne_3()
Dim i&, m$, lObj()
lObj = Array("Feuil1", "Feuil2", "Module1", "Module4", "ThisWorkbook")
For i = 0 To UBound(lObj)
m = m & atata(CStr(lObj(i))) & vbLf
Next
MsgBox m, vbInformation
End Sub