Salut
Le fichier que tu as déposé est très bien J'avais trouvé entre temps ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n%
n = 1
For lig = 5 To [C65536].End(xlUp).Row 'commence à la 5éme ligne
If Cells(lig, "C") <> "" Then Cells(lig, "L") = "N°" & n: n = n + 1
Next
End Sub
Mais c'est vraie, je n'avais pas prévu de mettre un garde-fou et la je dois reconnaitre que tu a raison.
Mais je ne sais pas de quelle manière je peux le lui indiquer ?
Si tu as une idée je suis preneur
Je te remercie et te souhaite une bonne journée
@+
Max