Private Sub Worksheet_Change(ByVal target As Range)
If target.Column = 4 Then
If ComboBox3.Value = "" Then
target.Offset(0, 2) = ""
End If
End If
If target.Column = 4 Then
If Cells(target.Row, 4) = "Néant" Then
target.Offset(0, 2) = Application.VLookup(ComboBox1.Value & ComboBox2.Value, Sheets("BD").Range("F:G"), 2, False)
Else
target.Offset(0, 2) = Application.VLookup(ComboBox1.Value & ComboBox2.Value & ComboBox3.Value, Sheets("BD").Range("F:G"), 2, False)
End If
End If
End Sub