Bonjour le forum et tout le monde,

Je souhaite ameliorer le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("g64000").Select
Range(Selection, Selection.End(xlUp)).Select
y = ActiveCell.Row 'Pour avoir la dernière ligne
 
For x = y To 1 Step -1
If Not IsNumeric(Range("b" & x)) Then Rows(x).Delete
If IsEmpty(Range("b" & x)) Then Rows(x).Delete
Next
Je sais que l'on peut en passant par des tables mais je n'ai pas compris leur manipulation, si une personne peut m'aider .

Merci pour tout