Discussion :

[porc-bouc]

Bjr,

Quelle est la façon d'arreter ma selection pour qu'il ne touche pas aux quatre premières lignes avec le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("A" & i).Range("A5:K" & Range("K65536").End(xlUp).Row).Clear

Cdt

[cafeine]

Hello,

sans plus d'infos, je dirais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("A" & i).Range("A5:K65536").Clear

devrait préserver tes 4 premières lignes.

[porc-bouc]

Bjr cafe

Je ne voudrais effacer que les lignes qui contiennent une infos en K

c'est pour cela le row.

cdt

[cafeine]

ok, alors voici une solution à adapter sans doute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Clean()
 
Set laplage = Range("K:K").SpecialCells(xlCellTypeBlanks)
For i = Range("K65536").End(xlUp).Row To 5 Step -1
    If Intersect(laplage, Cells(i, 11)) Is Nothing Then
        Cells(i, 11).EntireRow.Delete
    End If
Next i
 
End Sub

[porc-bouc]

Merci cafe je vais tester
Cdt