Dim i As Integer
Range("A14").Select
For i = 14 To 9999
If Range("A" & i).Interior.ColorIndex = xlNone Then
Exit For
End If
Next i
Range("A" & i).EntireRow.Insert
Range("A" & i & ":G" & i).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Je ne sais pas si ce code peut t'aider, mais il me permet de créer un ligne a partir de la ligne 14 de A14 a G14 avec des couleurs , bordure, etc