Private Sub CommandButton1_Click()
If ComboBox4.Value <> "" [COLOR="Red"][B]Or[/B][/COLOR] ComboBox2.Value <> "" Then
Sheets("Feuil1").Range("A5").Value = "TEST " & ComboBox4.Value & Chr(10) & ComboBox2.Value
End If
'ou
'If ComboBox1.Value <> "" [COLOR="red"][B]And[/B][/COLOR] ComboBox2.Value <> "" Then
' Sheets("Feuil1").Range("A5").Value = "TEST " & ComboBox1.Value & Chr(10) & ComboBox2.Value
'Else
' MsgBox "S'il vous plaît, remplissez les deux champs !"
'End If
End Sub