Format N°

=SI(F3="";"";"N°" &LIGNE()-4)

if range("F3")="" then
    Range(x)=""
else
    Range(x).formula = "N°" & range(x).row-4
end if

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then Exit Sub 'si la variable test est vrai, sort de la procédure
If Target.Column <> 5 Then Exit Sub 'si la colone de la cellule éditée est différente de 5, sort de la procédure
If Target.Row < 3 Then Exit Sub 'si la ligne de la cellule éditée est inférieure à 3, sort de la procédure
If Selection.Cells.Count > 1 Then Exit Sub 'si le nombre de cellules sélectionnées est supérieur à 1, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
test = True 'définit la variable test
Target.Value = "Nº " & Target.Value 'rajoute "Nº "
test = False 'redéfinit la variable test
End Sub

Private test As Boolean 'déclare la variable test