for(my $iR = $title_row +1; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++){
							$internal_cell = $oWkS->{Cells}[$iR][$map_Cmin];
							$active_cell = $oWkS->{Cells}[$iR][$active_col];
							$family_cell = $oWkS->{Cells}[$iR][$active_col];