Private Sub CBONOM_Change()
Dim r As Long
With Cbonom
If .ListIndex > -1 Then
r = Sheets("bd").Range(.RowSource)(.ListIndex + 1).Row
End If
End With
With Sheets("bd")
TxtCP = Range("b" & r)
Txtville = .Range("c" & r)
Optgpe1 = LCase(.Range("d" & r)) = LCase(Optgpe1.Caption)
Optgpe2 = Not Optgpe1
End With
End Sub