Re : probleme end(XlToRight)
SAlut, voila le code que j'utilise pour inserer une ligne au dessus de la ligne selectionné. Le problème réside sur la fonction End(xltoright) qui s'arrete à la premiere colonne vide au lieu de s'arreter à la derniere colonne non vide.
Sub NouvelleLigneAuDessus()
' Insère une ligne au-dessus de la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.EntireRow.Insert
ActiveCell.Range("A2").Select
ZtNumLig = ActiveCell.Row
ZtDerCol = Cells(ActiveCell.Row, 1).End(xlToRight).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig - 1, 1), Cells(ZtNumLig - 1, ZtDerCol))
Application.ScreenUpdating = False
For I = 1 To ZtDerCol
If Not Cells(ZtNumLig - 1, I).HasFormula Then
Cells(ZtNumLig - 1, I).ClearContents
End If
Next I
ActiveCell.Offset(-1, 0).Select
End Sub