*** ENREGISTRER une copie de CP
Private Sub CommandButton1_Click()
Trouv = False
For WS = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(WS).Name = Range("B13").Value Then
Trouv = True
MsgBox "Attention, la Feuille " & Range("B13").Value & " existe déjà !", vbCritical + vbOKOnly
Exit For
End If
Next WS
If Trouv = False Then
Cells.Copy
Sheets.Add.Name = Range("B13").Value
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
If Range("D27") = " droits à CP non ouverts " And Range("D28") = " droits à CP non ouverts " Then CommandButton1 = True
End Sub