Sub Numéroter()
Dim n As Long, lig As Long, i As Integer, num As Boolean
If ActiveCell.Column = 32 Then
lig = ActiveCell.Row
Else
Exit Sub
End If
If lig < 2 Then Exit Sub
num = True
With ActiveSheet
For i = 1 To 3
If .Cells(lig, i) = "" Then num = False
Next i
If num Then
n = Application.Max(Range("AF:AF")) + 1
If n < 2016000 Then n = n + 2016000
.Cells(lig, 32).Value = n
End If
End With
End Sub