Private Sub CommandButton_Ajouter_Click()
With Sheets("BD")
Nv = .Range("A65536").End(xlUp).Row + 1
On Error Resume Next
.Cells(Nv, "A").Value = .Cells(Nv - 1, "A").Value + 1
If Err Then .Cells(Nv, "A").Value = 1
On Error GoTo 0
'.Range("A" & Nv).Value = Image1.Name