simpliflier une macro

[franck]

bonjour, j'ai une petite macro mais qui prend beaucoup de lignes, pouvez vous me diriger sur une macro plus simple.


Merci d'avance

select case prod
case'janvier'
sheets ('janvier').select
case'février'
sheets ('février').select
end select
range ('g1').select
while not isempty (activecell)
activecell.offset(1,0).select
wend
activecell = coef
end sub

 

[Hervé]

bonjour franck, tata olive, tdc, le forum

peut etre comme ceci :

Sheets(prod).Select
Range('g65536').End(xlUp)(2, 1) = coef


salut