Bonjour le forum,
Test ce code
Cordialement
Le rital
Donne le numéro de ligne aussi que la lettre de la colonne de la cellule active
Sub ColLigne()
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
Ligne = ActiveCell.Row
MsgBox Colonne & Ligne
MsgBox Colonne
MsgBox Ligne
End Sub