Private Sub Recherche_Police() Dim i As Long For i = 0 To Screen.FontCount - 1 Debug.Print Screen.Fonts(i) Next End Sub