XL 2016 Ma macro ne se lance pas en entier sur certains PCs

Sub sauve2_2()
Application.ScreenUpdating = False
Sheets("SAUVEGARDE TEMP2").Activate
With Feuil12
    finc = .UsedRange.Columns.Count               'on récupère la dernière ligne de la feuille
    finl = .UsedRange.Rows.Count
   
      For i = 8 To finl
        If .Range("A" & i) <> "" Then
            fintab = .Range("A" & i).Offset(1, 0).Row - 1  'on récupère la dernière ligne de la "section test"
            NumTest = .Range("A" & i)
                    
            .Range(Cells(i, 9), Cells(fintab, finc)).Copy
            With Feuil3
                Set ici = .Rows(10).Find(NumTest, lookat:=xlWhole)
                If Not ici Is Nothing Then
                    .Range("A18").Offset(0, ici.Column - 1).PasteSpecial Transpose:=True
                  
                End If
            End With
        End If
    Next i
   End With
Application.ScreenUpdating = True

Feuil3.Activate
With Feuil3

finic = .UsedRange.Columns.Count               'on récupère la dernière ligne de la feuille
finil = .UsedRange.Rows.Count


'on met en forme les colonnes et les lignes pour avoir un tableau harmonieux

Range(Cells(10, 8), Cells(finil, finic)).Borders.Weight = xlThin
Range(Cells(15, 8), Cells(16, finic)).Interior.Color = RGB(0, 176, 240)
Range(Cells(18, 8), Cells(finil, finic)).Borders.Weight = xlThin
Range(Columns(8), Columns(finic)).Select

    Selection.ColumnWidth = 15   'taille dela colonne

  
  
  
End With
  
  

End Sub

Sub sauve2_2()
Dim finc%, finl&, i&, fintab&, NumTest, ici As Range, finic%, finil&
Application.ScreenUpdating = False
With Feuil12
    finc = .UsedRange.Columns.Count               'on récupère la dernière ligne de la feuille
    finl = .UsedRange.Rows.Count
    For i = 8 To finl
        If .Range("A" & i) <> "" Then
            fintab = .Range("A" & i).Offset(1, 0).Row - 1  'on récupère la dernière ligne de la "section test"
            NumTest = .Range("A" & i)
            .Range(.Cells(i, 9), .Cells(fintab, finc)).Copy
            With Feuil3
                Set ici = .Rows(10).Find(NumTest, , xlValues, xlWhole)
                If Not ici Is Nothing Then
                    .Range("A18").Offset(0, ici.Column - 1).PasteSpecial Transpose:=True
                End If
            End With
        End If
    Next i
End With

Feuil3.Activate 'pas indispensable...
With Feuil3
    finic = .UsedRange.Columns.Count               'on récupère la dernière ligne de la feuille
    finil = .UsedRange.Rows.Count
    'on met en forme les colonnes et les lignes pour avoir un tableau harmonieux
    .Range(.Cells(10, 8), .Cells(finil, finic)).Borders.Weight = xlThin
    .Range(.Cells(15, 8), .Cells(16, finic)).Interior.Color = RGB(0, 176, 240)
    .Range(.Cells(18, 8), .Cells(finil, finic)).Borders.Weight = xlThin
    .Range(.Columns(8), .Columns(finic)).ColumnWidth = 15   'taille dela colonne
End With

End Sub