Extraction Word vers Excel

Bonsoir ric

Je pense avoir trouver justement sur le forum je cherche depuis le début de notre conversation et finalement je pense avoir trouver

Dit moi simplement si je peut clôturé le sujet une bonne fois pour toutes

Encore merci

Sub test()
Dim cell As Range
    For Each cell In Range("A2:" & _
             Cells(Rows.Count, 1).End(xlUp).Address)
        cell.Value = Trim(cell.Value)
  Next
End Sub

Bonjour,

La seule différence avec celle que je t'ai fournie > je lie la mienne à une feuille précise > la tienne travaille sur la feuille active ...

Bonne continuité ...

ric