Sub Insererlignes()
Dim i As Integer, n As Integer
With Sheets(1)
'On vérifie si la valeur en B9 est bien numérique
If Not IsNumeric(.[b9]) Then MsgBox "Entrer une valeur numérique en B9": Exit Sub
'On enregistre la valeur dans une variable "n"
n = .[b9]
'On insère le nombre de ligne au dessus de la quatrième ligne
.Rows(11).Resize(n).Insert Shift:=xlDown
'On boucle les valeurs en colonne A
For i = 11 To 10 + n
.Cells(i, 1).Value = "Bâtiment " & i
Next i
'On enregistre la plage de cellule
ActiveWorkbook.Names.Add Name:="Nbre_logt", RefersTo:=.Cells(11, 2).Resize(n)
End With
End Sub