Bonsoir à tous,

Je cherche à créer un range portant jusqu'à la dernière valeur présente sur la feuille concernée. Ce range comprendrait 2 colonnes (I et J) et près de 10000 lignes.

J'ai utilisé le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Dim R as Range
Set R = ThisWorkbook.Worksheets("mafeuil").Range("I1:J" & Split(ActiveSheet.UsedRange.Address, ":")(4))
Mais ce dernier forme un range qui s'arrête à la ligne 3671

Avez-vous une idée ?

Merci pour votre aide,

Jaymerry