Function InfoRange(rng As Range, refs As XlReferenceStyle) As String
Zz = Split(rng.Address(4, 4, refs), ":")
t = "Première cellule: " & Chr(13) & Replace(Replace(Zz(0), "R", "Ligne: "), "C", ", Colonne: ")
tt = "Dernière cellule: " & Chr(13) & Replace(Replace(Zz(1), "R", "Ligne: "), "C", ", Colonne: ")
ttt = "Nombre de zone(s): " & rng.Areas.Count
tttt = "Nombre de cellules: " & rng.Count
InfoRange = t & Chr(13) & tt & Chr(13) & ttt & Chr(13) & tttt
End Function
Sub test()
MsgBox InfoRange(Range("F3:H5"), xlR1C1), vbInformation, "Infos Plage: " & Range("F3:H5").Address(0, 0)
End Sub