Bonjour tout le monde,


je souhaite effacer les colonnes vides d'un tableau (les 2 premières lignes étant toujours renseignées et les 4 premières colonnes renseignées aussi)

J'ai mis en place le code suivant qui ne marche pas bien ( la macro met un temps fou pour effacer les colonnes vides)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub deleteColonneVide() 
 
Dim i As Long, j As Byte, x As Variant 
Dim dernierecolonne As Integer 
Dim colonne As Range 
Dim mysheet As Worksheet 
 
 
 
Set mysheet = Sheets("ABC") 
 
dernierecolonne = Range("IV2").End(xlToLeft).Column 
 
j = 4 
while j<= dernierecolonne 
For i = 4 To Cells.Find("*", , , , , xlPrevious).Row 
If Cells(i, j) <> "" Then x = x + 1 
Next i 
 
If x = 0 Then 
Cells(65536, j).Select 
Range(Selection, Selection.End(xlUp)).Select 
Selection.Delete Shift:=xlToLeft 
j=j-1
End If: x = 0: 
j=j+1 
wend 
Set mysheet = Nothing 
End Sub
merci d'avance pour l'aide

@+