Sub ImporterRecla()
'
' ImporterRecla Macro
'
With Sheets("Réclamations")
Nom = .Range("D6")
PCE = .Range("D2")
Rec = .Range("B6")
End With
'
ActiveSheet.OLEObjects.Add(Filename:="C:\Users\b90570\Desktop\TEST.doc", _
Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\windows\Installer\{90120000-0012-0000-0000-0000000FF1CE}\wordicon.exe", _
IconIndex:=0, IconLabel:="Nom.doc").Select
End Sub