Private Sub CmdValideCC1Cat_Click()
Application.ScreenUpdating = False
Dim ligne
'
ligne = ActiveCell.Row
If Cells(ligne, 8) <> "" Then
Cells(ligne, 10).Value = CboCC1Cat.Text
Cells(ligne, 11) = CboCC1SsCat.Text
Cells(ligne, 11) = CboCC1SsCat.Text
End If
Cells(ligne + 1, 10).Activate
Unload UserFormCC1
UserFormCC1.Show
End Sub