Public WithEvents GrLettres As MSForms.CommandButton
Private Sub GrLettres_Click()
F_Mat.Lettre = GrLettres.Caption
F_Mat.choixnom.Clear
For Each c In Range(Sheets("materiaux").[B3], Sheets("materiaux").[B65000].End(xlUp))
If NOACCENT(Left(c, 1)) Like IIf(GrLettres.Caption = "Tous", "*", GrLettres.Caption) _
Then F_Mat.choixnom.AddItem c
Next
If F_Mat.choixnom.ListCount > 0 Then F_Mat.choixnom.ListIndex = 0
End Sub
Function NOACCENT$(t$)
Dim a$, b$, i%
a = "àâçéèêëîïôùûüÿÀÂÇÉÈÊËÎÏÔÙÛÜŸ"
b = "aaceeeeiiouuuyAACEEEEIIOUUUY"
For i = 1 To Len(a)
t = Replace(t, Mid(a, i, 1), Mid(b, i, 1))
Next
NOACCENT$ = t
End Function