insertion de ligne excel

Bonsoir,

Une solution :

Sub InsertLignes()
Dim DébutLigne As Integer
Dim NbLignes As Integer

DébutLigne = 4 'pour insérer à partir de la ligne 4 par exemple
NbLignes = ActiveSheet.Range('A1').Value ' si le nombre de ligne est en 'A1',sinon modifier
If NbLignes > 0 Then
Rows(DébutLigne & ':' & (DébutLigne + NbLignes - 1)).Select
Selection.Insert Shift:=xlDown
End If
End Sub

Bonsoir Sandrine, Fabrice, le forum,

Sandrine, je te joins un petit exemple dont tu pourras t'inspirer pour créer une macro... Si ce n'est pas ta demande, précise un peu ce que tu souhaites

En effet, si tu souhaites le faire manuellement, rien de plus simple, mais il faut le dire :whistle:

Amicalement
Charly

Bonjour à tous,

Oups ! Je m'aperçois que j'avais omis le fichier. Je devais être fatigué hier soir

Je corrige ça tout de suite...

Amicalement
Charly [file name=Sandrine.zip size=6999]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Sandrine.zip[/file]