avoriaz

salut le forum

re thierry, merci pour ta reponse: j'ai essayer plusieurs choses du genre :

Sub FiltreReport()
Dim cell As Range
Dim MaPlage As Range
Dim i As Integer
Dim iF2 As Integer
Dim ZoneA() As String, ZoneB() As String, ZoneC() As String, ZoneD() As String

Sheets(2).Range("a2:d100").ClearContents

iF2 = 2

Set MaPlage = Sheets("Sheet1").Range("A2", [A65536].End(xlUp))
Set MaPlage = Sheets("Sheet1").Range("A2", [A65536].End(xlUp))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)


ReDim ZoneA(0 To MaPlage.Count - 1)
ReDim ZoneB(0 To MaPlage.Count - 1)
ReDim ZoneC(0 To MaPlage.Count - 1)
ReDim ZoneD(0 To MaPlage.Count - 1)

For Each cell In MaPlage
If Len(cell.Text) > 90 Then cell.ClearContents --------------------------
ZoneA(i) = cell.Value
Sheets("Sheet2").Range("A" & iF2) = ZoneA(i)
ZoneB(i) = cell.Offset(0, 1)
Sheets("Sheet2").Range("B" & iF2) = ZoneB(i)
ZoneC(i) = cell.Offset(0, 2)
Sheets("Sheet2").Range("C" & iF2) = ZoneC(i)
ZoneD(i) = cell.Offset(0, 3)
Sheets("Sheet2").Range("D" & iF2) = ZoneD(i)
i = i + 1
iF2 = iF2 + 1
Next cell

End Sub

ca efface les lignes --------------------------------- mais pas le +++++++++++++++++ bizzard non ?

et je voudrais effacer la ligne completement la ca vide les cellules ...

then DeletingRows il veux pas ....

Then cell.EntireRow.Delete

un peu de mal pour effacer la ligne

lol
merci pour ton aide

avo