Sub ChangerPolice(NomUSF As String)
Dim Ctl As Control
Dim TaillePolice As Byte
Dim NomPolice As String
TaillePolice = 12
NomPolice = "Arial"
[COLOR="Red"]For Each Ctl In UserForms(NomUSF).Controls[/COLOR]
If Ctl.Name <> "Titre" Then
Ctl.Font.Size = TaillePolice
Ctl.Font.Name = NomPolice
End If
Next
End Sub