'****************
'### à adapter ###
Const CHEMIN As String = "c:\Etudiants.doc"
'#################
Sub CopieWord2Excel()
Dim Doc As Object ''Word.Document
Dim S As Worksheet
Dim R As Range
Dim var
Dim i&
Dim j&
'--- Monte le Word .doc ---
Set Doc = GetObject(CHEMIN)
Doc.Range.Copy
Doc.Close
Set Doc = Nothing
'--- Copie dans une nouvelle feuille ---
Set S = Sheets.Add
S.Paste
'--- Convertit(à partir du ":") ---
Selection.TextToColumns Destination:=[a1], _
DataType:=xlDelimited, _
Other:=True, _
OtherChar:=":"
'--- Rétablit le convertisseur ---
Selection.TextToColumns Other:=False, OtherChar:=""
'--- Retire les espaces superflus ---
Set R = S.UsedRange
var = R
For i& = 1 To R.Rows.Count
For j& = 1 To R.Columns.Count
var(i&, j&) = Trim(var(i&, j&))
Next j&
Next i&
R = var
End Sub
'****************