Bonjour Dberthia,
Une fonction pour éliminer les accents réalisé par notre Ti national.
Avec une macro qui travaille sur une plage, tu peux supprimer les accents avant d'effectuer la recherche.
Function MajSansAccent$(ByVal Chaine$)
Const VAccent = 'àáâãäåéêëèìíîïðòóôõöùúûü', VSsAccent = 'aaaaaaeeeeiiiioooooouuuu'
Dim Bcle&
If Len(Chaine) > 0 Then
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = Chaine
End If
End Function
Sub ListeSansAccent()
Dim plage As Range, Cell As Range
Set plage = Sheets('Feuil1').Range('A1:A20')
For Each Cell In plage
Cell = MajSansAccent$(Cell)
Next Cell
End Sub
Cordialement
Bernard