Private Sub ComboBox1_Change()
'Copie dans F10 de la feuille "Feuil2" la valeur de la ComboBox1 de la Feuil1
Feuil2.Range("F10").Value = Feuil1.ComboBox1.Value
'Ou plus conventionnellement
'Sheets("Feuil2").Range("F10").Value = Sheets("Feuil1").ComboBox1.Value
End Sub