Comment interdire modif ds cellule remplie ?

Bonsoir,
Ta solution est certe un peu basique mais surtout tout à fait fausse.
Quand tu donne une "solution" il faudrait d'abord la tester !!!

copie cette sub dans un nouveau classeur et teste...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Value = Target.Address
    Range("A2").Value = ActiveCell.Address
    Range("B4").Value = 12
    Range("A5").Value = IsNull(Range("B4").Value)
End Sub

Activecell donne l'adresse de la cellule dans lequel ont vient d'arriver...et non celle où ont était
idem pour Target.Address
La fonction IsNull ne fonctionne que sur des objet ou variable de type Variant, dans le cas soumis, renvoit toujour FAUX
la ligne...

    ActiveSheet.Protect Contents:=False

déprotège toute la feuille, ce qui veux dire qu'il n'y à plus de protection
la ligne

    ActiveSheet.Protect Contents:=True

reprotège la feuille, mais ne protège pas la cellule concernée...
Voila le code comme il devrait être, du moins une solution.
Il faut d'abord déprotéger la feuille et décocher les verrouillage de toutes les cellules vides et ensuite reverrouillé la feuille
Sans cette condition ca marchera jamais, par facilité j'ai mis une macro qui peu déverrouillé par bloc.

Dim AncienneCellule As String

Private Sub Worksheet_Activate()
    AncienneCellule = ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If AncienneCellule <> "" Then
        If Range(AncienneCellule).Value <> "" Then
            Sheets("Feuil1").Unprotect
            Range(AncienneCellule).Locked = True
            Sheets("Feuil1").Protect
        End If
    End If
    AncienneCellule = Target.Address
End Sub

Sub déverrouilleCellules()
    Worksheets("Feuil1").Unprotect
    'Changer l'adresse pour déverrouillé des cellules
    Sheets("Feuil1").Range("A1:G30").Locked = False
    Worksheets("Feuil1").Protect
End Sub

Vérifié et tester.
A+