Bonjour,
si j'ai bien compris,
Private Sub ValidationSpeakers_Click()
L = Sheets("Tableau_affaires").Cells.Find(What:=ComboBoxCode.Value).Row
With Sheets("Tableau_affaires")
Range("G" & L) = Me.TextBoxHandSpeaker
Range("H" & L) = Me.TextBoxBoxIntervention
Range("I" & L) = Me.ComboBoxSupervisor
Range("J" & L) = Me.ComboBoxManager
Range("K" & L) = Me.ComboBoxSubcontracting