Merci à Roblochon et Patrice pour vos réponses j ai réussi à avancer mais je rencontre d'autres difficultés que je n'avais pas avant, je vous joints les quelques lignes de code.
La création du second Classeur avec le nom en D21 ( du premier classeur) est bon la ou c'est pas fonctionnel et bloquant c'est au moment du collage des données B1 : F99 (copiées du Premier classeur) dans la cellule B1 du (Nouveau classeur) c'est totalement incompréhensible ci dessous le code complet . est il possible que les données, soient perdues lors de la copie puis de la création du nouveau classeur, ?
Sub essaienregistrementclasseur1()
'bloque le rafraichissement de l'affichage
Application.ScreenUpdating = False
' essaienregistrementclasseur1 Macro
Dim wbk As Workbook
Dim NomFichier As String
NomFichier = Range("d21")
'copie des elements du classeur "NEW 2"
Windows( _
"NEW 2.xlsm" _
).Activate
Range("B1:F99").Select
Selection.Copy
'Enregistrement d'un nouveau classeur avec le nom de "d21" dans classeur "NEW 2"
Set wbk = Workbooks.Add
wbk.SaveAs Filename:="C:\Users\Erik.Tillier\Desktop\" & NomFichier
wbk.Activate
Range("B1").Select
'Collage spécial des cellules préalablement copier en "NEW 2"/"B1:F99"
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False