Range.Font (Excel)

Renvoie un objet font qui représente la police de l’objet spécifié.

Dim fntFont As Font
Set fntFont = ActiveCell.Font