Private Sub CommandButton2_Click()
If ComboBox1 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox1.Value
Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1) = ComboBox1.Value
End If
If ComboBox2 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox2.Value
Worksheets("Feuil3").Range("A" & Worksheets("Feuil3").Range("A65536").End(xlUp).Row + 1) = ComboBox2.Value
End If
If ComboBox3 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox3.Value
Worksheets("Feuil4").Range("A" & Worksheets("Feuil4").Range("A65536").End(xlUp).Row + 1) = ComboBox3.Value
End If
UserForm1.ComboBox1.Value = ""
UserForm1.ComboBox2.Value = ""
UserForm1.ComboBox3.Value = ""
End Sub