Récupérer la valeur d'une cellule venant de différents onglets

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Outillages" Then Exit Sub
    If Target.Count > 1 Or Target.Column <> 12 Or Target = "" Then Exit Sub
    Outil = Cells(Target.Row, 1)
    Set trouve = Sheets("Outillages").[A:A].Find(what:=Outil, LookIn:=xlValues, lookat:=xlWhole)
    If Not trouve Is Nothing Then
        If trouve.Offset(0, 12) = "" Then
            Sheets("Outillages").Cells(trouve.Row, 13) = Target
            Exit Sub
        Else
            premAdresse = trouve.Address
            Do
                Set trouve = Sheets("Outillages").[A:A].FindNext(trouve)
                If trouve.Offset(0, 12) = "" Then Sheets("Outillages").Cells(trouve.Row, 13) = Target: Exit Sub
            Loop While Not trouve Is Nothing And trouve.Address <> premAdresse
        End If
    End If
End Sub

If Sh.Name = "Outillages" Or Sh.Name = "Mon_Autre_Feuille" Or sh.Name = "La_Troisième_Feuille" Then Exit Sub