Mon code vba marche une fois sur deux!

Private Sub fichier1()
    
    On Error GoTo Error_
    Dim xlApp1 As Excel.Application
    Dim xlWb1 As Excel.Workbook
    Dim xlSh1 As Excel.Worksheet
    
If Text11 <> "" Then
        Set xlApp1 = CreateObject("Excel.Application")
        Set xlWb1 = xlApp1.Workbooks.Open(Text11)  'text11 contient le chemin
        Set xlSh1 = xlWb1.Sheets(1)   'une seule feuille dans le fichier
    
    With xlApp1
        .DisplayAlerts = False
        .Visible = True
        .ActiveWorkbook.Save
        .Calculation = xlAutomatic
        .MaxChange = 0.001
        .ActiveWorkbook.PrecisionAsDisplayed = False
        If .ActiveSheet.Range("A1") <> "PO+PN" Then GoTo AddPOPN 

AddPOPN:  ' Ajout du PO+PN
        .Columns("A").Select
        .ActiveSheet.Columns("A:A").Insert Shift:=xlToRight
        .Range("A1") = "PO+PN"
        .ActiveSheet.Range("A2").Select
        .ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[38],RC[9])"
        .Selection.AutoFill Destination:=xlSh1.Range("A2:A" & Range("A2").end(xlDown).Row), Type:=xlFillDefault        
        .Columns("A:A").Select
        .Selection.NumberFormat = "@"
        If .ActiveSheet.Range("A1") = "PO+PN" Then GoTo Type_
Exit Sub

    End With
End If
    'fermeture du processus excel, sauvegarde  et liberationdes objets
    Set xlSh1 = Nothing
    Set xlWb1 = Nothing
    xlApp1.Quit
    Set xlApp1 = Nothing
Exit Sub
    
End Sub

'======================================================

Private Sub fichier2()

    On Error GoTo Error_
    Dim xlApp2 As Excel.Application
    Dim xlWb2 As Excel.Workbook
    Dim xlSh2 As Excel.Worksheet
    
If Text21 <> "" Then
        Set xlApp2 = CreateObject("Excel.Application")
        Set xlWb2 = xlApp2.Workbooks.Open(Text21)
        Set xlSh2 = xlWb2.Sheets(1)

    With xlApp2
        .DisplayAlerts = False
        .Visible = True
        .ActiveWorkbook.Save
        .Calculation = xlAutomatic
        .MaxChange = 0.001
        .ActiveWorkbook.PrecisionAsDisplayed = False
        If .ActiveSheet.Range("A1") <> "PO+PN" Then GoTo AddPOPN 

AddPOPN: ' Ajout du PO+PN
        .Columns("A").Select
        .ActiveSheet.Columns("A:A").Insert Shift:=xlToRight
        .Range("A1") = "PO+PN"
        .ActiveSheet.Range("A2").Select
        .ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[38],RC[9])"
        .Selection.AutoFill Destination:=xlSh2.Range("A2:A" & Range("A2").end(xlDown).Row), Type:=xlFillDefault       
        .Columns("A:A").Select
        .Selection.NumberFormat = "@"
        .ActiveWorkbook.Save
Exit Sub


    End With
End If

    'fermeture du processus excel et liberationdes objets
    Set xlSh2 = Nothing
    Set xlWb2 = Nothing
    xlApp2.Quit
    Set xlApp2 = Nothing
   
End Sub