Nbligne2=range("HH1).End(XlmDown).Row+1
xlmdown ?? Ca marche ça ?
Pour la suite, je dirais qu'il te faut :
Range("HH" & Nbligne2 & ":IA237000").Select
A tester, dis moi si ça marche
EDIT :
Plutot que d'utiliser Nbligne2=range("HH1).End(XlmDown).Row+1
, qui d'ailleurs écrit tel quel ne doit pas très bien fonctionner... tu peux aussi le faire ainsi :
Dim Nbligne2
Range("HH1").End(xlDown).Activate
Nbligne2 = ActiveCell.Address
Range(Nbligne2 & ":IA237000").Select