ate Sub CommandButton1_Click()
If Sheets.Name = ComboBox1.Value Then
MsgBox "L'onglet existe déjà!", , "Info"
Else:
Sheets("Ref").Visible = True
Sheets("Ref").Select
Sheets("Ref").Copy After:=Sheets(Sheets.Count)
With Sheets("Ref (2)")
Cells(3, 4) = ComboBox1.Value
End With
Sheets("Ref").Select
ActiveWindow.SelectedSheets.Visible = False
Unload UserForm
End If
End Sub