Option Explicit
Option Base 1
Option Compare Text
Public MaLigneEnCours As Integer 'Faut pas déconner, j'ai moins de 32 767 lignes de code dans mon module
Sub MaMacro()
MsgBox Application.VBE.ActiveCodePane.CodeModule.ActiveLine 'Afficherait 9
MaLigneEnCours = Application.VBE.ActiveCodePane.CodeModule.ActiveLine 'Renverrait 10
MsgBox MaLigneEnCours 'Afficherait 10
End Sub