Bonsoir Zouille, le forum
un début de réponse
modifie ton code avec ça
Private Sub CommandButton2_Click()
Sheets('Devis').Range('f4') = ComboBox2
Sheets('Devis').Range('g4') = ComboBox3
Sheets('Devis').Range('f5') = TextBox6
Sheets('Devis').Range('f6') = TextBox5
Sheets('Devis').Range('g6') = TextBox14
Unload Me
End Sub