Option Explicit
Sub Add_piece()
Dim i As Long, l As Long
Dim jn As String, n As String, des As String
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Feuil1
'Définition de la dernière ligne remplie en colonne A
l = .[a65000].End(xlUp).Row
'On boucle les lignes pour remplir le dictionnaire, afin de vérifier s'il existe déjà un couple Job Number / Number
For i = 2 To l: d(.Cells(i, 1).Value & ":" & .Cells(i, 2).Value) = i: Next i
'On entre les valeurs par Inputbox
jn = InputBox("Write the Job n :", "Job number"): n = InputBox("Write the Drawing n :", "Drawing number")
'On vérifie si le couple existe déjà
If d.exists(jn & ":" & n) Then
'Si oui, on incrémente de 1 la colonne D
.Cells(d(jn & ":" & n), 4).Value = .Cells(d(jn & ":" & n), 4).Value + 1
Else:
'Si non, un inputbox demande la désignation
des = InputBox("Write the new Description :", "Description")
'On entre les valeurs dans les différentes colonnes
.Cells(l + 1, 1).Value = jn
.Cells(l + 1, 2).Value = n
.Cells(l + 1, 3).Value = des
.Cells(l + 1, 4).Value = 0
End If
End With
End Sub