Private Sub ComboBox1_Click()
Range("C7").Value = WorksheetFunction.VLookup(Range("E7").Value, (WorksheetFunction.Offset(Sheets("Nature de l'opération").Range("A2:B2"), 0, 0, WorksheetFunction.CountA(Sheets("Nature de l'opération").Range("A:B") - 1))), 2, 0)
End Sub