Sub ColumnLetter()
Dim Cell As Range
Dim ColLetter As String
Dim ColNumber As Integer
Set Cell = ActiveCell
ColLetter = Left(Cell.Address(False, False), (Cell.Column < 27) + 2)
ColNumber = Cell.Column
MsgBox 'La Cellule Active se situe en Colonne ' & ColLetter & vbCrLf & _
'Soit la Colonne Numéro ' & ColNumber
End Sub