Bonjour g.milano
Peut-être en essayant simplement ceci :
.Columns(Split(.Rows(1).Find(ranmei(i), lookat:=xlWhole).Address, "$")(1)).Hidden = True
En effet, lorsque tu ecris Columns(Split(.Rows(1).Find(ranmei(i), lookat:=xlWhole).Address, "$")(1)).Hidden = True
, le .Hidden s'applique aux colonnes de la feuille active. En rajoutant le point "." devant Columns, le.Hidden s'appliquera a la feuille decrite dans le With.