Bonjour,
Met ce code dans ThisWorkBook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Select
With Selection.Font
.Name = "Arial"
.Size = 10
End With
End Sub
Puis Ctrl+A quand tu veux tout harmoniser.
Cdt.