bonjour,
il faut traiter colonne par colonne avec un autofilter ou utiliser MFC
Sub FilterAccents()
Dim iCol, Dict, c, s
Set Dict = CreateObject("Scripting.Dictionary") 'cahier de brouillon
s = "eEéèêëÉÈÊË" 'tous les accents
With Range("A1:Z100") 'votre plage
.AutoFilter 'éliminer autofilter precedent
iCol = 2 'x-ième colonne de cette plage
For Each c In .Columns(iCol).Cells 'boucle les cellules
If InStr(1, s, Left(c.Value, 1), 1) > 0 Then Dict(c.Value) = vbEmpty '1ier lettre a un accent ? ajouter au dictionary
Next
If Dict.Count Then
.AutoFilter iCol, Dict.Keys, xlFilterValues 'tous les valeurs qui commencent avec un accent
Else
MsgBox "désolé"
End If
End With
End Sub