Rendre obligatoire le remplissage de cellules si une est déjà rempli

Bonjour,

Je souhaite rendre obligatoire le remplissage de certaines cellules si la cellule de tête est rempli. Je m'explique :

Si A2 est non vide alors il devient obligatoire de remplir les cellules (A3:A66), et un message "saisi incomplète" apparaît si elles ne le sont pas.

Je vous remercie de l'aide que vous pourrez m'apporter.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

bonjour,

ceci est vraiment brutal, colle ceci dans la module de votre feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     With Range("A2:A60")
          b = (WorksheetFunction.CountA(.Offset(0)) = .Count)     'toutes les cellules sont rempli ?
          Me.ScrollArea = IIf(b, Range("a1:Z100").Address, .Address)     'si toutes okay, on peut aller vers n'importe quelle cellule de la première plage, sinon, on reste dans la premiere colonne
          Application.StatusBar = IIf(b, "", "il faut remplir " & .Address & " !!!")     'message dans le statusbar
          If Target.Column <> 1 And Not b Then Application.Goto Target.Offset(, 1 - Target.Column)
     End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.EnableEvents = False
    If Range("A2") <> "" And WorksheetFunction.CountA(Range("A3:A66")) <> 64 Then
       MsgBox "Saisie incomplète", 16
       Cancel = True
    End If

    Application.EnableEvents = True
End Sub

Merci à tous les deux de m'avoir répondu, après quelque modification voici le code :