On Error GoTo newcat
index_cat = WorksheetFunction.Match(Sheets("Ajout").Range("D14"), fd.Range("A1:A200"), 0) 'Index de la catégorie
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: