Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub 'si le changement à lieu ailleurs que dans la colonne A, sort de la procédure
'place les formule
Range("B" & Target.Row).Formula = "=VLOOKUP(" & Target.Value & ",'" & Target.Value & "'!A1:H63,2,FALSE)"
Range("C" & Target.Row).Formula = "=VLOOKUP(" & Target.Value & ",'" & Target.Value & "'!A1:H63,5,FALSE)"
Range("G" & Target.Row).Formula = "='" & Target.Value & "'!F46"
Range("H" & Target.Row).Formula = "='" & Target.Value & "'!F43-E5"
Range("K" & Target.Row).Formula = "='" & Target.Value & "'!C56"
Range("L" & Target.Row).Formula = "='" & Target.Value & "'!C59"
Range("S" & Target.Row).Formula = "='" & Target.Value & "'!C50"
Range("U" & Target.Row).Formula = "='" & Target.Value & "'!C48"
Range("V" & Target.Row).Formula = "='" & Target.Value & "'!C57"
Range("W" & Target.Row).Formula = "='" & Target.Value & "'!C60" 'étrange ! deux fois la même formule...
Range("X" & Target.Row).Formula = "='" & Target.Value & "'!C60" 'étrange ! deux fois la même formule...
End Sub