bonsoir,
code adapté, note que ta demande concerne une sélection (filtre) et non un tri.
Sub aargh()
Dim ok As Boolean
dl& = Cells(Rows.Count, 1).End(xlUp).Row
Range("B:B").ClearContents
k& = 0
For i& = 1 To dl
s$ = Cells(i, 1)
ok = True
For j& = 1 To Len(s)
If Not Mid(s, j, 1) Like "[A-Z,.'ÉÈÊÀÙÂÎÔÛ]" Then ok = False: Exit For
Next j
If ok = True Then
k = k + 1
Cells(k, 2) = s
End If
Next i
End Sub