'Déclaration des variables
Dim index_cat As Byte, l_inc As Byte
'Ligne recevant les nouvelles données
On Error GoTo newcat
'index_cat = WorksheetFunction.Match(Sheets("Ajout").Range("D14"), fd.Range("A1:A200"), 0) 'Index de la catégorie
index_cat = fd.Range("A1:A200").Find(Sheets("Ajout").Range("D14"), LookIn:=xlValues, lookat:=xlWhole).Row 'Ligne de la catégorie
Debug.Print index_cat
If fd.Cells(index_cat, 1).End(xlDown) <> "" Then
l_inc = fd.Cells(index_cat, 1).End(xlDown).Row 'Index de la ligne qui reçevra les nouvelles données
'Ajout de la ligne d'accueil
fd.Cells(index_cat, 1).End(xlDown).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
newcat:
If l_inc = 0 Then
l_inc = fd.Cells(255, 2).End(xlUp).Offset(1).Row 'Index de la ligne qui reçevra les nouvelles données
End If