Excellisé la Bible

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
  If Target <> "" Then
    AtteindreSignetWord [COLOR="Red"]Target.Value[/COLOR]
  End If
End If
End Sub

Sub AtteindreSignetWord([COLOR="Red"]signet As String[/COLOR])
'cocher la référence => Microsoft Word xx.x ObjectLibrary
Dim WordApp As Word.Application
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
AppActivate "BIBLE - Microsoft Word" 'facultatif, si le fichier Word s'appelle BIBLE
Err = 0
WordApp.Selection.Goto What:=wdGoToBookmark, Name:=[COLOR="red"]signet[/COLOR] 'nom du signet dans Word
If Err Then MsgBox "Signet Word introuvable !": Exit Sub
WordApp.Selection.Font.Color = wdColorBlue
End Sub

Sub AtteindreSignetWord(signet As String)
'cocher la référence => Microsoft Word xx.x ObjectLibrary
Dim WordApp As Word.Application
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
AppActivate "BIBLE - Microsoft Word" 'facultatif, si le fichier Word s'appelle BIBLE
Err = 0
WordApp.Selection.Goto What:=wdGoToBookmark, Name:=signet 'nom du signet dans Word
If Err Then MsgBox "Signet Word introuvable !": Exit Sub
[COLOR="Red"]WordApp.Run "Colore"[/COLOR]
End Sub

Sub Colore()
If MsgBox("Colorer le verset sélectionné ?", 4) = 7 Then Exit Sub
Selection.Font.Color = wdColorBlue
End Sub

Private Sub Document_Open()
Dim b As Bookmark
For Each b In Bookmarks
  ComboBox1.AddItem b
Next
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
On Error Resume Next
Bookmarks(ComboBox1).Select
If Err Then ComboBox1 = "": ComboBox1.DropDown: Exit Sub
[COLOR="Red"]Colore[/COLOR]
End Sub

Sub Colore()
If MsgBox("Colorier le verset sélectionné ?", 4) = 7 Then Exit Sub
Selection.Font.Color = wdColorBlue
End Sub