simpliflier une macro

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