Userform, Sélectionner une valeur de la colonne adjacente

Bonjour,
je suis entrain de créer un userfom.
J'aimerai que la valeur qui s'affiche dans le combobox3 soit la case sur la même ligne mais d'une colonne décalée et ensuite verrouiller les valeurs mises dans le combobox2 et 3 en appuyant sur le bouton valider.



Private Sub ComboBox2_change()
Dim nOm As Long
Set ws1 = Sheets("TABLES")
With Me.ComboBox3
If ComboBox2.Value = ("Di") Then
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)

Next nOm
Else
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)
Next nOm
End If
End With
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Enabled = True
ActiveCombobox2.Protect
ActiveCombobox3.Protect
End Sub




Merci pour votre aide.