Option Explicit
Sub Cellule_active_propriétés()
MsgBox "Couleur de fond : " & Selection.Interior.ColorIndex & vbCrLf & "Couleur de police : " _
& Selection.Font.ColorIndex & vbCrLf & "Nom de police : " & Selection.Font.Name & vbCrLf & _
"Taille de police : " & Selection.Font.Size
If Selection.MergeCells = True Then MsgBox "Cellule fusionnée"
End Sub