XL 2016 VBA: Sélection d'une plage de cellules non affiché vide.

Bonjour,

Dans

Sheets("2. Relevé Equipem. Prise en ch.").Select
Range("G4:I2000").Select
Selection.Copy
Sheets("3. Création du planning").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

je voudrai remplacer le 2000 par la dernière ligne affiché non vide rencontrée. Je précise Affiché non vide est pas non vide. Il y'a des formules qui affiches un résultat vide et qui doivent être considérées comme vide. Comme je ne sais pas si le VBA fait la différence entre une cellule affichée vide et une cellule vide donc je précise.

Cordialement