Sub NouveauChapitre()
With Range("B" & Rows.Count).End(xlUp) 'colonne B ou au-delà, à adapter
.Cells(2, 0) = Application.Max(Columns(.Column - 1)) + 1
End With
End Sub
Sub NouvelArticle()
With Range("B" & Rows.Count).End(xlUp) 'colonne B ou au-delà, à adapter
If .Cells(2, 0) <> "" Then
.Cells(2) = .Cells(2, 0) & ".1"
Else
.AutoFill .Resize(2)
End If
End With
End Sub