Slt,
j'ai un gros problème:
Avec le programme suivant j'essaie de copier uniquement les lignes qui m'interresse dans un tableau et les remettre dans un nouveau tableau sur une autre page:
Sub Ellipse1_QuandClic()
Dim cell As Range
Dim lig As Variant
lig = 10
Worksheets("Feuil1").Activate
For Each cell In Worksheets("Feuil1").Range("B4:B642")
If cell.Value < Sheets("Feuil1").Range("AF4").Value Then
cell.Select
cell.Activate
lig = lig + 1
Worksheets("essai").Range(Cells(lig, 1), Cells(lig, 6)).Value = ActiveCell.EntireRow.Offset(0, 0).Range("B1:G1").Value
End If
Next
End Sub
Je crois que la plage indiquer :
Range(Cells(lig, 1), Cells(lig, 6))
n'est pas correct.
Je ne sais comment te remercier
Quecks.