Private Sub CommandButton1_Click()
If Me.ComboBox1 <> "" And Me.ComboBox2 <> "" Then
ActiveCell = UCase(Me.ComboBox1)
ActiveCell.Offset(, 1) = Me.ComboBox2
ActiveCell.Offset(, 2) = Me.ComboBox3
ActiveCell.Offset(, 3) = CDbl(Me.TextBox1)
Unload Me
Else
MsgBox "Veuillez remplir tous les champs, avant de transférer sur la feuille... "
Exit Sub
End If
End Sub