Creer une Feuille en fonction d'un Nom et la selectionner

Bonjour

A travers ma macro je souhaiterais créer une feuille en fonction d'une cellule donnée.
Mais si elle existe déjà continuer la macro.
Pour continuer la Macro j'ai besoin de copier la valeur sélectionné dans la base et la copier dans la nouvelle feuille.

J'ai commencer une marco

Option Explicit

Sub Rectangle1_Cliquer()
Dim Nblg As Long
Dim CHX As String
Application.ScreenUpdating = False
Nblg = Range("B" & Rows.Count).End(xlUp).Row
CHX = Cells(1, 3)
Sheets.Add.Name = CHX
Sheets("projet").Select
Range("A9:Y" & Nblg).AutoFilter field:=2, Criteria1:=CHX
If Application.Subtotal(103, Range("B10:B" & Nblg)) > 0 Then


With Sheets("p")
'Ici "P" et la valeur dans la cellule. je voudrais que sa quelque chose comme
'Sheets.Name = CHX


.Cells.Clear
Range("A10:Y" & Nblg).SpecialCells(xlCellTypeVisible).Copy .Range("A1")
.Range("A1:Y" & .Range("B" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=3
End With
ActiveSheet.AutoFilterMode = False
End If
End Sub

Pouvez-vous m'aider.
Merci