SUPPRESION D'UNE VARIABLE DANS UNE SECTION D'UN FICHIER .INI

Function supVariable(fichier As String, section As String, variable As String)
    Dim ecrire As String
    Dim trouver As Boolean
    Dim ligne As String
    Dim supprimer As Boolean
    
    If (section <> "") Then
        Open fichier For Input As #1
        trouver = False
        supprimer = False
        
        While Not EOF(1)
            Line Input #1, ligne
            If (InStr(ligne, "[") = 1) And (InStr(ligne, "]") > 0) Then
                If (InStr(ligne, "[" & section & "]") = 1) And trouver = False Then
                    trouver = True
                Else
                    trouver = False
                End If
                ecrire = ecrire & ligne & vbCrLf
            Else
                If trouver = True Then
                    If (InStr(ligne, variable & "=") = 1) Then
                        supprimer = True
                        'pas d'ajout-=-> suppression
                    Else
                        ecrire = ecrire & ligne & vbCrLf
                    End If
                Else
                    ecrire = ecrire & ligne & vbCrLf
                End If
            End If
        Wend
        Close #1 'Fermeture du fichier..
        
         Open "C:\temp\prog.ini" For Output As #1 'ouverture du fichier
            Print #1, ecrire    'impression des lignes
         Close #1 'fermeture du fichier
    End If
    supVariable = supprimer
End Function