Sub bout1()
Var = Range("B3")
ligne = Application.Match(Sheets("saisie").Range("A3"), Sheets("sauvegarde").Range("A1:A4"), 0)
Sheets("sauvegarde").Cells(ligne, Sheets("saisie").Range("E3") + 1) = Var
'Sheets("sauvegarde").Select 'si nécessaire ...
End Sub