Sheets("BASE").Select
Selection.Copy
Sheets("Modèle").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.DisplayFormulas = True
Range("A2:F2,A5:A52").Select
Range("A5").Activate
Selection.Replace What:="34", Replacement:="35", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.DisplayFormulas = False