feuilles automatiques

Private Sub CommandButton1_Click()
Sheets("individuelle").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
  .Range("D2") = Sheets("Feuil1").Range("C6")
  .Range("D4") = Sheets("Feuil1").Range("C8")
  .Name = .Range("D2")
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C6") = UCase(Range("C6"))
Range("C8") = UCase(Range("C8"))
CommandButton1.Enabled = True
If Range("C6") = "" Then CommandButton1.Enabled = False
For Each sh In Sheets
  If Range("C6") = sh.Name Then
    MsgBox "Cette fiche existe déjà !", vbOKOnly + vbExclamation
    CommandButton1.Enabled = False
    Range("C6,C8") = ""
    Range("C6").Select
  End If
Next
End Sub