Private Sub Worksheet_Change(ByVal Target As Range)
'test si on modifie la cellule F5
If Target.Address = "$F$5" Then
'construit le nom du fichier par rapport au N° de l'affaire sélectionné
nomfichier = Range("F5").Value & ".xls"
'construit une variable appelé matrice qui nous sert dans la rechercheV
Names.Add Name:="matrice", RefersTo:="=[" & nomfichier & "]BASE!" & Range("$A$1:$B$10").Address, Visible:=True
Names.Add Name:="matrice2", RefersTo:="=[" & nomfichier & "]BASE!" & Range("$A$1:$C$10").Address, Visible:=True
'met à jour tous les calculs (les recherchev)
ActiveSheet.Calculate
End If
End Sub