Re : Probleme suppression lignes
Le tien ne marche pas non plus. En plus, je vois que tu as laissé le "NOT". Peut-être que tu ne m'as pas envoyé le bon ?
Si tu peux vérifier et éventuellement me renvoyer ta version qui marche avec un numéro ou un signe pour la différencier.
Pour résumer, j'ai essayé 2 solutions :
1 - cette simple ligne :
If Not Application.Intersect(Target, Range("a5")) Is Nothing Then Exit Sub
C'est celle qui marche le mieux, seul problème : la protection ne se remet pas lorsqu'on saisie la 1ere ligne.
2 - les trois lignes suivantes :
If Not Application.Intersect(Target, Range("a5")) Is Nothing Then
ActiveSheet.Protect Password:="yb"
End If
C'est celle que tu m'a envoyée en dernier. Ca marche pour la première ligne mais les lignes suivantes => plus de protection et pas de création de la ligne à la fin du tableau.
Dans les deux cas, enlever le NOT ne donne rien de bon.
Sacré casse-tête, mais on finira bien par trouver ...