Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ong As String
Dim li As Long
Dim lc() As String
Dim col As Byte
ong = Sh.Name
li = ActiveCell.Row
lc = Split(ActiveCell.Address, "$", -1, vbTextCompare)
col = ActiveCell.Column
MsgBox "Onglet : " & ong & Chr(13) & "Ligne : " & li & Chr(13) & "Lettre Colonne : " & lc(1) & Chr(13) & "Colonne : " & col
End Sub