Private Sub CmdEnregistrer_Click()
Application.ScreenUpdating = False
'With Sheets("VIANDES")
With Workbooks("Liste.xlsx").Sheets("VIANDES")
lg = 0
Select Case ComboVM1.ListIndex
Case -1
If ComboVM1 <> "" Then lg = .Range("A65536").End(xlUp).Row + 1
Case Else
lg = ComboVM1.ListIndex + 2
End Select
If lg > 0 Then
.Cells(lg, 1) = Me.ComboVM1
.Cells(lg, 2) = Me.ComboPv1
.Cells(lg, 3) = Me.TextBoxEfv1
.Cells(lg, 6) = Me.TextBoxRv1
.Cells(lg, 9) = Me.ComboOuV1
.Cells(lg, 10) = Me.ComboCoV1
End If
With ActiveSheet
.Cells(8, 2) = ComboVM1.Value
Workbooks("Liste.xlsx").Sheets("VIANDES").[A2].Sort key1:=Workbooks("Liste.xlsx").Sheets("VIANDES").[A2], Order1:=xlAscending, Header:=xlGuess
Application.ScreenUpdating = True
Unload Me