Ligne en plus

Salut Bulis, salut le forum,

Parmi les nombreuses possibilités de faire ce que tu demandes voici un code qui te rajoute une ligne entière déjà formatée.
J'ai considéré que ton tableau commence à la colonne A. Si ce n'est pas le cas, remplace dans le code ci-dessous tous les A par la lettre de la première colonne de ton tableau.

Sub ligne()
Range("A65536").End(xlUp).EntireRow.Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Range("A65536").End(xlUp).EntireRow.ClearContents
End Sub

Utilise cette macro chaque fois que tu veux rajouter une ligne.

À plus,

Robert

Salut robert

Merci cela fonction à merveille

A la prochaine