'Ecrit dans cellules la valeur des Textbox
Sheets("Volumes").Range("C4") = TextBox1.Value
Sheets("Volumes").Range("C5") = TextBox2.Value
Sheets("Volumes").Range("C6") = TextBox3.Value
Sheets("Volumes").Range("C7") = TextBox4.Value
Sheets("Volumes").Range("C8") = TextBox5.Value
Sheets("Volumes").Range("C10") = TextBox6.Value
Sheets("Volumes").Range("C11") = TextBox7.Value
Sheets("Volumes").Range("C12") = TextBox8.Value
Sheets("Volumes").Range("C13") = TextBox9.Value
Sheets("Volumes").Range("C14") = TextBox10.Value
Sheets("Volumes").Range("C15") = TextBox11.Value
Sheets("Volumes").Range("C16") = TextBox12.Value
Sheets("Volumes").Range("C19") = TextBox13.Value
Sheets("Volumes").Range("C20") = TextBox14.Value
Sheets("Volumes").Range("C21") = TextBox15.Value
Sheets("Volumes").Range("C22") = TextBox16.Value
Sheets("Volumes").Range("C23") = TextBox17.Value
Sheets("Volumes").Range("C24") = TextBox19.Value
Sheets("Volumes").Range("C25") = TextBox20.Value
Sheets("Volumes").Range("C28") = TextBox21.Value
Sheets("Volumes").Range("C29") = TextBox22.Value
Sheets("Volumes").Range("C30") = TextBox23.Value
Sheets("Volumes").Range("C31") = TextBox24.Value
Sheets("Volumes").Range("C32") = TextBox25.Value
Sheets("Volumes").Range("C33") = TextBox26.Value
Sheets("Volumes").Range("C9") = TextBox32.Value
Sheets("calcul heures théor.").Range("E13") = TextBox27.Value
Sheets("calcul heures théor.").Range("E18") = TextBox28.Value
Sheets("calcul heures théor.").Range("E14") = TextBox29.Value
Sheets("calcul heures théor.").Range("E19") = TextBox30.Value
Sheets("calcul heures théor.").Range("E16") = TextBox31.Value
'Déplacement d'une page à l'autre
Sheets("calcul heures théor.").Range("E13") = TextBox27.Value
Sheets("calcul heures théor.").Range("E18") = TextBox28.Value
Sheets("calcul heures théor.").Range("E14") = TextBox29.Value
Sheets("calcul heures théor.").Range("E19") = TextBox30.Value
Sheets("calcul heures théor.").Range("E16") = TextBox31.Value
Sheets("calcul heures théor.").Range("E17") = TextBox33.Value
'Copie la colonne semaine en cours vers semaine destination
Range(Cells(4, ComboBox1.ListIndex + 168), Cells(49, ComboBox1 .ListIndex + 168)).Value = Sheets("Volumes").Range("C4:C49").Value
'Ferme l'USF
Unload Me
End If
End Sub