Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox ("Vous n' avez pas entrer le N° de la semaine!!")
Else
On Error Resume Next
Sheets("Semaine N°" & ComboBox1).Select
If Err <> 0 Then
Sheets.Add(Sheets(Sheets.Count)).Name = "Semaine N°" & ComboBox1
Else
Sheets("Semaine N°" & ComboBox1 & "BIS").Select
If Err <> 0 Then
Sheets.Add(Sheets(Sheets.Count)).Name = "Semaine N°" & ComboBox1 & "BIS"
Else
MsgBox " La feuille : Semaine N°" & ComboBox1 & "BIS existe déja "
End If
End If
End If
Unload Me
End Sub