Dim nbLigne As Long
nbLigne = range("B65536").End(xlUp).Row
'ici on obtient le numéro de la ligne de la dernière cellule contenant une donnée.
'donc on doit écrire dans la cellule qui se trouve sur la ligne nbLigne + 1
Rows(nbLigne + 1).Insert
Cells(nbLigne + 1, 2) = "nouveau projet"
range("E5:AB5").Select ' on selectionne les cellules
Selection.Copy ' on les copies
Ligne = nbLigne + 1 ' on détecte le nb de ligne non vide +1
range("E" & Ligne).Select ' on sélectionne la ligne ou on veut coller
ActiveSheet.Paste ' on colle les données
Application.CutCopyMode = False 'on déselectionne les cellules