Hello merci beaucoup !
Néanmoins, lorsque j'installe la macro...
Il ne se passe rien lors de la suppression de ligne...
Je viens de le tester, ça fonctionne très bien chez moi...
Par contre, il y a 2 lignes à inverser dans le code pour éviter les soucis !
Dim NbLig As Long
Private Sub Worksheet_Activate()
NbLig = UsedRange.Rows.Count 'Affecte la première valeur à l'activation de la feuille
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If UsedRange.Rows.Count < NbLig Then 'Si moins de lignes après modification
NbLig = UsedRange.Rows.Count 'Affecte la nouvelle valeur
Range("A1") = Range("A1") - 1 'Modifie le compteur (ici -1 quel que soit le nombre de lignes supprimées, modifiable si besoin)
MsgBox "Suppression de ligne(s) !"
End If
End Sub
On parle bien ici de suppression de ligne, pas simplement du contenu d'une ligne !