Set salaireChef = Sheets("donnees_employes").Range("G4")
Set salaireComp = Sheets("donnees_employes").Range("H4")
'où chef et compagnons sont les noms des deux combobox
UserForm1.equipe.Caption = chef.Value*salaireChef.Value + compagnons.Value*salaireComp.Value)/(chef.Value + compagnons.Value)