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