Recherchev sous excel

Private Sub CommandButton1_Click()
nb = Sheets("BDD").Range("A65536").End(xlUp).Row
Sheets("BDD").Activate
Sheets("BDD").Range("$A$1:$F$9").AutoFilter Field:=3, Criteria1:=Activite.Value
Range("A2:F" & nb).SpecialCells(xlVisible).Select
Selection.Copy
   
   
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    ActiveSheet.Name = Activite.Value
    Sheets("BDD").Select
    ActiveSheet.Range("$A$1:$F$" & nb).AutoFilter Field:=3
    Application.CutCopyMode = False
    
End Sub

Private Sub CommandButton1_Click()
Sheets("BDD").Activate
nb = Sheets("BDD").Range("A65536").End(xlUp).Row

'on applique un filtre sur la colonne C - avec l'activité choisie
Sheets("BDD").Range("$A$1:$F$" & nb).AutoFilter Field:=3, Criteria1:=Activite.Value
Range("A2:F" & nb).SpecialCells(xlVisible).Select
Selection.Copy
   
   
'on recherche dans le classeur si l'onglet est déjà créé ou pas
dejacree = False
For Each ws In Worksheets
    If ws.Name = Activite.Value Then
        dejacree = True
        'et la. on fait quoi? on écrase?
    End If
Next ws
    If Not (dejacree) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Activite.Value
    End If
    Sheets(Activite.Value).Activate
    ActiveSheet.Paste
    
    'on revient sur la BDD et on enlève le filtre
    Sheets("BDD").Select
    ActiveSheet.Range("$A$1:$F$" & nb).AutoFilter Field:=3
    Application.CutCopyMode = False
    
End Sub