Sub ProcInsFichier()
Dim docrtf As Word.Application
Dim fichier As Variant
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wrd = CreateObject('word.application')
wrd.Visible = False
'Affichage boîte de dialogue pour choisir document .rtf
fichier = Application.GetOpenFilename('Textfiles(*.*),*.*')
If fichier = False Then Exit Sub
Set docrtf = wrd.documents.Open(fichier)
With docwd.Content.Find
.ClearFormatting
.Text = '.'
With .Replacement
.ClearFormatting
.Text = ''
End With
.Execute Replace:=wdReplaceAll
.Forward = True
.Wrap = wdFindContinue
End With
docwd.Range.Find.Execute Replace:=wdReplaceAll
wrd.Selection.WholeStory
wrd.Selection.Copy
modele = Sheets('Sheet1').Range('A1')
End Sub