Actualisation fichier txt via excell et vba

[faneva]

Bonsoir
Merci de m'aider
J'exporte des données excell vers un fichiers text
je voudrais récatualiser le fichier text de la façon suivante:
- actualisation des lignes qui sont identifiés par le 1er champ(exemple 101)
si le 3eme champ change (ici 152), il faut changer tous donnée de la ligne corespondant sinon, on fait rien

 coltot = ActiveSheet.UsedRange.Columns.Count
                        lignetot = ActiveSheet.UsedRange.Rows.Count
                        tablo = Range(Cells(1, 1), Cells(lignetot, coltot)).value
                        Nb = FreeFile
                        Open "c:\fichier.txt" For Append As #Nb
                        Texte = tablo(n, 1) & ";" & Cells(1, 6).value & ";" & Cells(1, 7).value & ";"
                        
                        For c = 2 To 5
    
                        Texte = Texte & FormatNumber(tablo(n, c), 2) & ";"
 
                        Next
                        Texte = Texte & Cells(1, 8).value & ";"
                        Print #Nb, Left(Texte, Len(Texte) - 1)
                        Texte = ""
                        
                        Close #Nb
                        
                    End If

cORDIALEMENT