Je ne comprends pas ce que tu dis.Oui mais il faut se positionner sur une ligne existante en l’occurrence 11 et je voudrais la faire effacer.
Si je la fait effacer elle devient 11 au lieu de 12 et ensuite à l'enregistrement elle n'est plus dans l'ordre
Exemple MAI 200 € 20/05/22 en dernière ligne
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.[A4:A9999]) Is Nothing Then Exit Sub
MsgBox "La modification des cellules de la colonne A n'est pas autorisée !"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.[A4:A9999]) Is Nothing Then Exit Sub
If Target.Columns.Count > 3 Then Exit Sub
MsgBox "La modification des cellules de la colonne A n'est pas autorisée !"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub