自己录制一个宏，可以完美运行，但是法国同事运行结果不一样

xs1623735090

自己录制一个宏，可以完美运行，但是法国同事运行结果不一样，请教各位大神，这个宏录的有什么问题吗？我对比了一下，都是一样的。

这个宏的大概思路：
     *在首页选择所需要的配置，就在all components表格里显示所需内容，根据公式设定，不需要的内容显示空白，为了便于查看，需要隐藏空白的单元格
1. 取消“Output”表格里隐藏的单元格；
2. 复制“all components ”表格需要的区域（这里我设置了超链接，B7：B8链接到所需区域【因为B7B8是合并单元格】），到“Output”表格粘贴；
3. 点击I7：I8 【是合并单元格，超链接到I9：I324】，此时已通过超链接自动框选了I9：I324，执行复制仅粘贴数值，接着用“111”替换空格，在空格替换111，使用定位条件找到I9：I324所有空格，然后隐藏空格整栏；（因为定位条件无法识别仅粘贴数值但是空的单元格，发现替换空单元格为其他值在替换回空单元格有效）
4. 点击B7:B8。。。。。（0.0步骤同第三点所述。）

自己电脑的代码	法国同事的电脑打开后发给我的代码
Sub ok() ' ' ok 宏 ' '     Sheets("Output").Select     Rows("8:500").Select     Selection.EntireRow.Hidden = False     Sheets("All components").Select     Range("B7:B8").Select     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Selection.Copy     Range("a6").Select     Sheets("Output").Select     Range("B9").Select     ActiveSheet.Paste     Sheets("Output").Select     Range("I7:I8").Select     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Application.CutCopyMode = False     Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Selection.Replace What:="", Replacement:="111", LookAt:=xlPart, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     Selection.Replace What:="111", Replacement:="", LookAt:=xlPart, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     Selection.SpecialCells(xlCellTypeBlanks).Select     Selection.EntireRow.Hidden = True     ActiveWindow.SmallScroll Down:=-12     Range("B7:B8").Select     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Application.CutCopyMode = False     Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Selection.Replace What:="", Replacement:="111", LookAt:=xlPart, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     Selection.Replace What:="111", Replacement:="", LookAt:=xlPart, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     Selection.SpecialCells(xlCellTypeBlanks).Select     Selection.EntireRow.Hidden = True     ActiveWindow.ScrollColumn = 1     Range("A6").Select End Sub	Sub ok() ' ' ok ºê ' '    Sheets("Output").Select    Rows("8:500").Select     Selection.EntireRow.Hidden= False     Sheets("Allcomponents").Select    Range("B7:B8").Select    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Selection.Copy    Range("a6").Select    Sheets("Output").Select    Range("B9").Select     ActiveSheet.Paste    Sheets("Output").Select    Range("I7:I8").Select    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Application.CutCopyMode= False     Selection.Copy     Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False     Selection.ReplaceWhat:="", Replacement:="111", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False     Selection.ReplaceWhat:="111", Replacement:="", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False    Selection.SpecialCells(xlCellTypeBlanks).Select     Selection.EntireRow.Hidden= True     ActiveWindow.SmallScrollDown:=-12    Range("B7:B8").Select    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True     Application.CutCopyMode= False     Selection.Copy     Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False     Selection.ReplaceWhat:="", Replacement:="111", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False     Selection.ReplaceWhat:="111", Replacement:="", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False    Selection.SpecialCells(xlCellTypeBlanks).Select    Selection.EntireRow.Hidden = True    ActiveWindow.ScrollColumn = 1    Range("A6").Select

xs1623735090

他既然能点击宏按钮运行，虽然最后显示空白，但我觉得应该不是法语系统的电脑不能运行中文系统电脑的宏。