Private Sub CommandButton1_Click()
Select Case ComboBox1
Case "1b", "1c"
Sheets("Tableau_Ref").Range("A3:Q26").Copy ActiveSheet.Range("A9")
Case 2, 3
Sheets("Tableau1").Range("A3:Q27").Copy ActiveSheet.Range("A9")
End Select
Sheets("Carnet").Range("D11").Value = ComboBox1.Value
Sheets("Carnet").Range("H11").Value = TextBox2.Value
Sheets("Carnet").Range("B10").Value = Date
Sheets("Carnet").Range("D11").Value = ComboBox1.Value
End Sub