Public Premiere_Colonne As Integer, Derniere_Colonne As Integer
Public Premiere_Ligne As Long, Derniere_Ligne As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Premiere_Colonne = Target.Column
Derniere_Colonne = (Premiere_Colonne + Target.Columns.Count) - 1
Premiere_Ligne = Target.Row
Derniere_Ligne = (Target.Row + Target.Rows.Count) - 1
MsgBox 'Colonne de début : ' & Premiere_Colonne & Chr(10) & 'Colonne de fin : ' & Derniere_Colonne _
& Chr(10) & 'Ligne de début : ' & Premiere_Ligne & Chr(10) & 'Ligne de fin : ' & Derniere_Ligne, vbOKOnly + vbInformation
End Sub