Sub test()
Dim R As Range, C As Range, DerLig As Long, i As Long, T() As String
With Worksheets("Feuil1")
DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
Set R = Worksheets("Feuil1").Range("A2:A" & DerLig)
ReDim T(1 To DerLig)
For Each C In R
If MotExiste(C.Value) = True Then
i = i + 1
T(i) = C.Value
End If
Next C
.Range("B2").Resize(i) = Application.Transpose(T)
End With
End Sub
Private Function MotExiste(ByVal strMot As String) As Boolean 'http://vb.developpez.com/faqvba/?page=3.1.2#CheckSpell
MotExiste = Application.CheckSpelling(strMot, , False)
End Function