Dim Nomfichier As String Dim Buffer As String Dim Lg As Long NomFichier = "C:\...\MonImage.BMP" Lg = 44 'Longueur à lire Open Nomfichier For Binary As #1 Buffer = Space$(Lg) 'Lecture à partir de la position 1 Get #1, 1, Buffer 'Modification du Buffer - - - - - - - - - - - - - - - - 'Ecriture à la même position et même Longueur Put #1, 1, Buffer Close #1