Remplir obligatoire certaines cellules

Bonjour,

Je souhaiterais que les cellules sur fond gris soient absolument rempli pour enregistrer le fichier.

Est il possible de crée dans le classeur une copie en fonction d'une certaine cellule "C1" et de pouvoir recherche la feuille via une recherche en fonction de la cellule "C1"

Merci

je modifier ma question

Est il possible de crée une copie du fichier dans un nouvelle onglet avec le nom de la cellule C1?

merci

Salut :

Pour empêcher l'utilisateur de sortir avant de remplir les données ,Utilisez ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Rn As Range
    For Each Rn In Feuil3.Range("C1,A2,C2,C9,C12,C14,C15,C16,C17,F18,C19,C20,C24,C25,C26,H9,H10,H11,H12,H13,H14,L9,L10,L11,L12,L13,L14,I5")
    If IsEmpty(Rn) = True Then
    MsgBox "vous devriez compléter les données Dans les cellules grises", vbExclamation, "Err"
    Cancel = True: Exit Sub: End If
Next

End Sub

salut

Pour enregistrer le fichier

Sub SaveMyFile()
Dim Destination As String, NameFile As String
On Error Resume Next
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
Destination = ThisWorkbook.Path & "\"
NameFile = CStr(Feuil3.Range("C1")) & ".xlsx"
With ActiveWorkbook
    .SaveAs Filename:=Destination & NameFile
    .Close
End With
End Sub

bonsoir je recopier le code et cela ne recopie pas dans une nouvelle feuille?

et l'on peu sortir avant d'avoir rempli toutes les cases

j'ai du faire une erreur