Bonjour
C'est très simple
Tu rajoutes la fonction après tes macros dans le module de l'userform
Function MajSansAccent(ByVal Chaine$)
Const VAccent = "àáâãäåéêëèìíîïðòóôõöùúûü", VSsAccent = "aaaaaaeeeeiiiioooooouuuu"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = UCase(Chaine)
End Function
Ensuite tu remplaces la ligne correspondante
Sub Alimente_ListView()
Dim J As Long
Dim i As Integer
Dim Nb As Long
With Me.ListView_Annuaire
.ListItems.Clear
For J = 4 To Ws.Range("B" & Rows.Count).End(xlUp).Row
If Ws.Range("B" & J) <> "" Then
For i = 2 To 8
'De la colonne 2 (B) à la colonne 8 (H)'
If MajSansAccent(Ws.Cells(J, i)) Like "*" & MajSansAccent(Me.TextBox_Recherche) & "*" Then Exit For
Next i
If i < 9 Then
C'est tout