Word erreur 5941 sur " Set bmrange"

Private Sub ComboBox1_Change()

End Sub

Private Sub txtDate_Change()

End Sub

Private Sub txtName_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Automatic fill-in for salutation control.
On Error Resume Next
Me.txtSalutation = "Dear " & Left(txtName, InStr(Me.txtName, " ") - 1) & ":"
On Error GoTo 0
End Sub

Private Sub txtZip_Change()

End Sub

Private Sub UserForm_Initialize()
'Populate cboState in ufAddressLetter.
Me.cboState.List = Split("AL AK Monsieur AR Madame CO CT DE DC FL GA" _
 & "HI ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH" _
 & "NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA" _
 & "WV WI WY")
Me.ComboBox1.List = Split("Monsieur Madame")

'Populate txtDate in ufAddressLetter. You can overwrite this value.
Me.txtDate.Value = Format(Now, "dd mmmm , yyyy")
End Sub


Sub cmdAddLetter_Click()
'Copy letter elements to letter template from userform
Dim bmks As Bookmarks
Dim bmRange As Range
'Pass the userform values to the document's bookmarks.
Set bmks = ActiveDocument.Bookmarks
Set bmRange = ActiveDocument.Bookmarks("bmTxtDate").Range
bmRange.Text = Me.txtDate.Value
Set bmRange = ActiveDocument.Bookmarks("bmName").Range
bmRange.Text = Me.txtName.Value & " " _
& Me.ComboBox1.Value
Set bmRange = ActiveDocument.Bookmarks("bmAddress").Range
bmRange.Text = Me.txtAddress.Value
Set bmRange = ActiveDocument.Bookmarks("bmAddress2").Range
bmRange.Text = Me.txtCity.Value & ", " _
 & Me.cboState.Value & " " _
 & Me.txtZip.Value

Me.Hide
End Sub